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g SBTTL 



000000' 030122 

000003' 000 

000006' 176700 

000010' 000254 

000012* 240 

000013* 000 

000014' 000001 



MODULE HEADER BLOCK 
IOMODX <RPDC >,176700,254,5,0,0, 1500, 104, PBUF 
MODULE 130000, PPDC ,176700,254,5,0,0,1500,104 
.TITLE RPDC DEC/XU SYSTEM EXEPCISER MODULE 
DDXCOM VERSION 6 23-MAY-7B 

.LIST BIN 

BEGIN! 



041304 



000022' 000000 



000026' 150000 

000030' 002044' 

000032' 000252' 

000034' 000000 

000036' 001500 

000040* 000000 

000042' 000000 
44* 



000050' 000000 
000052* 000000 
000054' 000000 



000062' 000000 
000064' 000000 
000066' 000000 
000070' 000000 
000072' 000000 
000074* 000000 
000076* 000000 
000100' 000000 
000102' 

000102' 000000 
000104' 

000104' 000000 
000106* 

000106' 000000 
000110* 000000 
000112* 002170* 
000114* 000000 
000116* 000000 
000120* 000000 
000122' 000104 
000124' 000716' 



,256, ,256, 
,RBUF,236 t ,256, 



###««*«#«###«#*#»*#*#«##«#««#****«###«»#« 



MODNAMI 


.ASCII /RPDC / 


XFLAGj 


.BYTE OPEN 


ADDRI 


176700+0 


VECTORl 


254 + 


BR1I 


.BYTE PRTY5+0 


BR2I 


.BYTE PPTY0+0 


DVIDll 


+ 1 


SRll 


OPEN 


SR2I 


OPEN 


6R3I 


OPEN 


SR4I 


OPEN 


j «##«#*##»#######*»##«#• 


STATi 


150000 


INITI 


START 


SPOINTl 


MODSP 


PASCNTI 





ICONTf 


1500 


ICOUNTI 





SOFCNTl 





HRDCNTI 





SOFPASI 





HRDPA8I 





SYSCNTl 





PANNUMI 





CONFIG! 




RESll 





RES2I 





SVR0I 


OPEN 


SVRH 


OPEN 


SVR2I 


OPEN 


SVR3! 


OPEN 


SVR4I 


OPEN 


SVR5I 


OPEN 


SVR6I 


OPEN 


CSRAt 


OPEN 


SBADRI 




ACSRi 


OPEN 


WASADPI 




ASTATt 


OPEN 


EPPTYPJ 




ASB| 


OPEN 


AWASl 


OPEN 


RSTRTi 


RESTRT 


WDTOl 


OPEN 


WDFRi 


OPEN 


INTRI 


OPEN 


IDNUMf 


104 


PBUFVAI 


PBUF 



jMODULE NAME, 

jUSED TO KEEP TRACK OF WBUFF USAGE 

MST DEVICE ADDR, 

;1ST DEVICE VECTOR, 

MST BR LEVEL. 

;2ND BR LEVEL, 

JDEVICE INDICATOR 1, 

(SWITCH REGISTER 1 

JSWITCH REGISTER 2 

jSWITCH REGISTER 3 

jswitch register 4 

(status word, 

jmodule start addr, 

jmodule stack pointer, 

jpass counter, 

j# of iterations per pass=1500 

jloc to count iterations 

jloc to save total soft errors 

jloc to save total hard errors 

jLOC to save soft errors per pass 

jloc to save hard errors per pass 

j# of sys errors accumulated 

jhqlds random # when rand macro is called 

ireserved for monitor use 

(reserved for monitor use 

(reserved for monitor use 

jloc to save r0, 

ILOC TO SAVE Rl, 

JLOC TO SAVE R2, 

jLOC TO SAVE R3, 

JLOC TO SAVE R4, 

jLOC TO SAVE R5, 

JLOC TO SAVE R6. 

jADDP OF CURRENT CSR, 

JADDR OF GOOD DATA, OR 

jCONTENTS OF CSR, 

JADDR OF BAD DATA, OR 

JSTATUS REG CONTENTS, 

J TYPE OF ERROR 

JEXPECTED DATA, 

JACTUAL DATA, 

JPESTART ADDRESS AFTER END OF PASS 

JfcORDS TO MEMORY PER ITERATION * 

JWORDS FROM MEMORY PER ITERATION 

J# OF INTERRUPTS PER ITERATION 

jMODULE IDENTIFICATION NUMBERsl04 

JREAD BUFFER VIRTUAL ADDRESS 



RPDC DEC/XU SYSTEM EXERCISER MODULE 
XPPDC0.PH 13-JUN-79 13101 

000126* 000000 

000130' 000000 

000132* 000400 

000134* 000000 
000136* 
000140' 
000142' 

000144' 000000 

000146* 000000 

000150* 000000 






MACX11 30AU052) 13«JUN»79 
MODULE HEADER BLOCK 

PBUFPAI OPEN 
RBUFEAI OPEN 
PBUFSZI 256, 
WBUFPAl OPEN 
WBUFEAJ OPEN 
WBUFRQI 256, 
WBUFSZJ OPEN 
CDERCTI OPEN 
CDWDCTI OPEN 
FREEi OPEN 

,PEPT SPSIZ 

.NLIST 

.WORD 

.LIST 

.ENDR 
KODSPJ 
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JREAD BUFFER PHYSICAL ADDRESS 
JREAD BUFFER EA BITS 
JSIZE OF THE READ BUFFER 
JWRITE BUFFER PHYSICAL ADDRESS 
JWRITE BUFFER EA BITS 
JWRITE BUFFER SIZE REQUESTED 
JWRITE BUFFER SIZE AVAILABLE 
JCDATA/DATCK ERROR COUNT 
JCDATA/DATCK WORD COUNT 
JRESERVED FOR FUTURE USE 
JMODULE STACK STARTS HERE, 



JDRB001 



«#««#######*«###*##«#*#«##$«##««**««■«###«#*#« 



RPDC DEC/XU SYSTEM EXERCISER MODULE 
XRPOC0 9 P11 i3«JUN»79 13101 



MACY11 30AU052) 13»JUN»79 
MODULE PRIVATE DATA 
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jDRB0fc)i 



260 






261 


000232* 




263 






263 






264 






263 


000252" 


177777 


266 


000254' 


177777 


267 


000256' 


177777 


268 


000260" 


177777 


269 


000262' 


177777 


270 


000264' 


177777 


271 


000266' 


177777 


272 


000270' 


177777 


273 


000272' 


177777 


274 


000274* 


177777 


27S 


000276* 


177777 


276 


000300" 


177777 


277 


000302' 


177777 


278 


000304* 


177777 


279 


000306' 


177777 


280 


000310' 


177777 


281 


000312' 


177777 


282 


000314* 


177777 


283 


000316* 


177777 


284 


000320" 


177777 


283 


000322" 


177777 


286 


000324* 


177777 


287 


000326* 


177777 


288 


000330" 


177777 


289 


000332" 


177777 


290 


000334* 


177777 


291 


000336' 


177777 


292 


000340" 


177777 


293 


000342* 


177777 


294 


000344' 


177777 


295 


000346" 


177777 


296 


000350' 


177777 


297 


000332* 


177777 


298 


000334' 


177777 


299 


000336* 


177777 


300 


000360' 


177777 


301 


000362* 


177777 


302 


000364' 


177777 


303 


000366' 


177777 


304 


000370" 


177777 


30S 


000372* 


177777 


306 


000374" 


177777 


307 


000376' 


177777 


308 


000400* 


177777 


309 


000402* 


177777 


310 


000404* 


177777 


311 


000406' 


177777 


312 


000410' 


177777 


313 


000412* 


177777 


314 


000414* 


177777 


313 


000416* 


177777 



9 SBTTL MODULE PRIVATE 


DATA 


BADSPTI 


JBAD SPOT TABLE. THERE IS ROOM FOR 48 




JBAD SPOTS, IN TWO-WORD FORMAT, CYLINDER 




JFIRST, THEN SECTOR IN LOW BYTE OF SECOND 




JWORD, AND TRACK IN HIGH BYTE, 


177777 


JCYLINDER ADDRESS 


177777 


jTRACK/SECTOR ADDRESS 


177777 


JCYLINDER ADDRESS 


177777 


jTRACK/SECTOR ADDRESS 


177777 


JCYLINDER ADDRESS 


177777 


jTRACK/SECTOR ADDRESS 


177777 


JCYLINDER ADDRESS 


177777 


jTRACK/SECTOR ADDRESS 


177777 


JCYLINDER ADDRESS 


177777 


jTRACK/SECTOR ADDRESS 


177777 


JCYLINDER ADDRESS 


177777 


jTRACK/SECTOR ADDRESS 


177777 


JCYLINDER ADDRESS 


177777 


(TRACK/SECTOR ADDRESS 


177777 


JCYLINDER ADDRESS 


177777 


jTRACK/SECTOR ADDRESS 


177777 


JCYLINDER ADDRESS 


177777 


jTRACK/SECTOR ADDRESS 


177777 


JCYLINDER ADDRESS 


177777 


jTRACK/SECTOR ADDRESS 


177777 


JCYLINDER ADDRESS 


177777 


jTRACK/SECTOR ADDRESS 


177777 


JCYLINDER ADDRESS 


177777 


jTRACK/SECTOR ADDRESS 


177777 


JCYLINDER ADDRESS 


177777 


jTRACK/SECTOR ADDRESS 


177777 


JCYLINDER ADDRESS 


177777 


jTRACK/SECTOR ADDRESS 


177777 


JCYLINDER ADDRESS 


177777 


jTRACK/SECTOR ADDRESS 


177777 


JCYLINDER ADDRESS 


177777 


jTRACK/SECTOR ADDRESS 


177777 


JCYLINDER ADDRESS 


177777 


jTRACK/SECTOR ADDRESS 


177777 


JCYLINDER ADDRESS 


177777 


jTRACK/SECTOR ADDRESS 


177777 


JCYLINDER ADDRESS 


177777 


jTRACK/SECTOR ADDRESS 


177777 


JCYLINDER ADDRESS 


177777 


jTRACK/SECTOR ADDRESS 


177777 


JCYLINDER ADDRESS 


177777 


jTRACK/SECTOR ADDRESS 


177777 


JCYLINDER ADDRESS 


177777 


jTRACK/SECTOR ADDRESS 


177777 


JCYLINDER ADDRESS 


177777 


jTRACK/SECTOR ADDRESS 


177777 


JCYLINDER ADDRESS 


177777 


jTRACK/SECTOR ADDRESS 


177777 


JCYLINDER ADDRESS 


177777 


jTRACK/SECTOR ADDRESS 


177777 


JCYLINDER ADDRESS 



DRB001 
DRB001 
DRB001 
DRB001 
DRB001 
1 
1 

DRB001 
DRB001 
DRB001 
DRB001 
DRB001 
DRB001 
DRB001 
DRB001 
DRB001 
DRB001 
DRB001 
DRB001 
DRB001 
DRB001 
DRB001 
DRB001 
DRB001 
DRB001 
DRB0U1 
DRB001 
DRB001 
DRB001 
DRB001 
DRB001 
DRB001 
DRB001 
DRB001 
DRB001 
DRB001 
DRB001 
DRB001 
DRB001 
DRB001 
DRB001 
DRB001 
DRB001 
DRB001 
DRB001 
DRB001 
DRB001 
DRB001 
DRB001 
DRB001 
DRB001 
DRB001 
DRB001 
DRB001 
DRB001 
DRB001 



) 



RPDC DEC/X11 SYSTEM EXERCISER MODULE 
XRPDC0 S P11 13»JUN«79 13101 



KACYH 30AU052) 13»JUN«79 
MODULE PRIVATE DATA 
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JDRB001 



316 


000420* 


177777 


317 


000422' 


177777 


318 


000424' 


177777 


319 


000426' 


177777 


320 


000430* 


177777 


321 


000432" 


177777 


322 


000434' 


177777 


323 


000436* 


177777 


324 


000440* 


177777 


323 


000442* 


177777 


326 


000444' 


177777 


327 


000446* 


177777 


328 


000450" 


177777 


329 


000432* 


177777 


330 


000434' 


177777 


331 


000436" 


177777 


332 


000460* 


177777 


333 


000462' 


177777 


334 


000464' 


177777 


333 


000466' 


177777 


336 


000470* 


177777 


337 


000472* 


177777 


338 


000474' 


177777 


339 


000476' 


177777 


340 


000500" 


177777 


341 


000302* 


177777 


342 


000504" 


177777 


343 


000306' 


177777 


344 


000310" 


177777 


343 


000512* 


177777 


343 


000314' 


177777 


347 


000316' 


177777 


348 


000320' 


177777 


349 


000322' 


177777 


330 


000324" 


177777 


331 


000326" 


177777 


332 


000330' 


177777 


333 


000532* 


177777 


334 


000534' 


177777 


333 


000336* 


177777 


336 


000340* 


177777 


337 


000542' 


177777 


338 


000344* 


177777 


339 


000346' 


177777 


360 


000330" 


177777 


361 


000533* 




362 






363 




000004 


364 




000020 


363 




000040 


363 




000100 


367 




000200 


368 






369 


000583* 


000000 


370 


000360" 


000000 


371 


000366" 


000000 





177777 


JTPACK/SECTOR ADDRESS 






177777 


JCYLINDER ADDRESS 






177777 


JTRACK/SECTOR ADDRESS 






177777 


JCYLINDER ADDRESS 






177777 


JTRACK/SECTOR ADDRESS 






177777 


JCYLINDER ADDRESS 






177777 


JTRACK/SECTOR ADDRESS 






177777 


JCYLINDER ADDRESS 






177777 


JTRACK/SECTOR ADDRESS 






177777 


JCYLINDER ADDRESS 






177777 


JTRACK/SECTOR ADDRESS 






177777 


JCYLINDER ADDRESS 






177777 


JTRACK/SECTOR ADDRESS 






177777 


JCYLINDER ADDRESS 






177777 


JTRACK/SECTOR ADDRESS 






177777 


JCYLINDER ADDRESS 






177777 


JTRACK/SECTOR ADDRESS 






177777 


JCYLINDER ADDRESS 






177777 


JTRACK/SECTOR ADDRESS 






177777 


JCYLINDER ADDRESS 






177777 


JTRACK/SECTOR ADDRESS 






177777 


JCYLINDER ADDRESS 






177777 


JTRACK/SECTOR ADDRESS 






177777 


JCYLINDER ADDRESS 






177777 


JTRACK/SECTOR ADDRESS 






177777 


JCYLINDER ADDRESS 






177777 


JTRACK/SECTOR ADDRESS 






177777 


JCYLINDER ADDRESS 






177777 


JTRACK/SECTOR ADDRESS 






177777 


JCYLINDER ADDRESS 






177777 


JTRACK/SECTOR ADDRESS 






177777 


JCYLINDER ADDRESS 






177777 


JTRACK/SECTOR ADDRESS 






177777 


JCYLINDER ADDRESS 






177777 


JTRACK/SECTOR ADDRESS 






177777 


JCYLINDER ADDRESS 






177777 


JTRACK/SECTOR ADDRESS 






177777 


JCYLINDER ADDRESS 






177777 


JTRACK/SECTOR ADDRESS 






177777 


JCYLINDER ADDRESS 






177777 


JTRACK/SECTOR ADDRESS 






177777 


JCYLINDER ADDRESS 






177777 


JTRACK/SECTOR ADDRESS 






177777 


JCYLINDER ADDRESS 






177777 


JTRACK/SECTOR ADDRESS 




ENDBBKi 








DLATE 


■ BIT2 






BPORT 


a BIT4 






NORAND 


b BITS 






BDSPT 


SBIT6 






RH70 


a BIT7 




J*#«16 


SI 


0*0*0,0, 0,0,0,0,0, 0,0,0, 0,0, 0,0, 0,0, 0,0 


0,0 



JDRB001 
JDRB001 
JDRB001 
JDRB001 
JDRB001 
JDRB001 
JDRB001 
JDRB001 
JDRB001 
JDRB001 
JDRB001 
JDRB001 
JDRB001 
JDRB001 
JDRB001 
JDRB001 
JDRB001 
JDRB001 
JDRB001 
JDRB001 
JDRB001 
JDRB001 
JDRB001 
JDRB001 
JDRB001 
JDRB001 
JDRB001 
JDRB001 
JDRB001 
JDRB001 
JDRB001 
JDRB001 
JDRB001 
JDRB001 
JDRB001 
JDRB001 
JDRB001 
JDRB001 
JDRB001 
JDRB001 
JDRB001 
JDRB001 
JDRB001 
JDRB001 
JDRB001 
JDRB001 
JDRB001 
JDPB001 
JDRB001 
JDRB001 
JDRB001 
JDRB001 
JDRB001 



# 

II 
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000000 000000 
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{DPB001 



372 


000574* 


000000 


373 


000602* 


000000 


374 


000610* 


000000 


373 


000616* 


000000 


376 


000624* 


000000 


377 






378 






379 


000626' 


000000 


380 


000630' 


000000 


381 


000632' 


000000 


382 


000634* 


000000 


383 






384 


000636' 


000252' 


38S 






386 


000640' 


000000 


387 


000642* 


000000 


388 


000644' 


000000 


389 


000646* 




390 


000646* 


000 


391 


000647* 


000 


392 






393 


000630* 


000000 


394 


000632' 


000000 


395 


000654' 


000000 


396 






397 


000636* 


000000 


398 


000660' 


000000 


399 


000662' 


000000 


400 






401 


000664* 


000000 


402 


000666' 


000000 


403 


000670' 


000000 


404 


000672* 


000000 


40S 


B00674* 


000000 


406 


000676* 


000000 


407 






408 


000700' 


000000 


409 


000702* 


000000 


410 


000704' 


000000 


411 


000706* 


000000 


412 


000710* 


000000 


413 


000712* 


000000 


414 


000714' 


000000 


415 


000716' 


000400 


416 






417 


001716' 




418 


001716* 


000532' 


419 


001720* 


000554* 


420 


001722* 


000556' 


421 


001724* 


000560* 


422 


001726* 


000362' 


423 


001730' 


000564' 


424 


001732* 


000566' 


425 


001734* 


000570* 


426 


001736* 


000572' 


427 


001740' 


000574' 



{DO NOT 

{NEEDED 

PA18I 

XMEMI 

PA22I 

EA22I 



NXTBBKI BADSPT 



CHANGE THF ORDEP OF THE NEXT 4 LOCATIONS 
FOR MAP22 ROUTINE 



I NEXT OPEN BADSPOT IN TABLE 



j**«5 



CYLLIMI 

CYLNDRI 

CYH 

DSKADRI 

SECTOR I 

TRACKi 

BADCYLl 
BADSECI 
BADTRKl 

LASCYLl 
LASTRKt 
LASSECl 

SIZTPKl 

SIZSECI 

FLAGl 

DVICEl 

DRIVEl 

UNITNOI 

DLTCNTI 

FUNCl 

TIMER! 

ZERO! 

FERADRI 

CLKl 

TRY! 

RBUFl 

TABLEi 



.BYTE 
.BYTE 



S + 2 
S + 4 
S + 6 
5410 
5+12 
S + 14 
S + 16 
S+20 
S + 22 



{ UPPER DISK LIMIT (DEPENDS ON DISK TYPE 

{ABSOLUTE CYLINDER ADDRESS OF CURRENT OP 

{RELATIVE DISK ADDRESS 

{FOR REFERENCING TRACK/SECTOR AS WORD 
{SECTOR ADDRESS OF CURRENT OPERATION 
{TRACK ADDRESS OF CURRENT OPERATION 

{FROM DRIVE LOCATION REGISTERS, ON FINDI 
{FROM RPDA ON BADSPOT OCCURANCE 
{FROM RPDA+1 ON BADSPOT 

{LAST CYLINDER WHICH CAN BE WRITTEN 
{LAST TRACK WHICH CAN BE WRITTEN 
{LAST SECTOR WHICH CAN BE WRITTEN 

{NUMBER OF TRACKS IN WBUFSZ 
{REMAINDER OF WBUFSZ* IN SECTORS 



{##-1 



{DRB001 
{DRB001 
JDRB001 

) {DRB001 
{DRB001 

{DRB001 
{DRB001 
{DRB001 
{DRB001 
JDRB001 

NG BADSPOTJDRB001 
{DRB001 

{DRB001 



{DRB001 
{DRB001 
{DRB001 
{DRB001 
JDRB001 
{DRB001 
{DRB001 



,RLKW 256, 
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428 


fc>01742' 


000576 


429 


001744' 


000600 


430 


001746* 


000602 


431 


001750' 


000604 


432 


001752* 


000606 


433 


001734* 


000610 


434 


001756* 


000612 


435 


001760* 


000614 


436 


001762' 


000616 


437 


001764* 


000620 


438 






439 


001766* 


177777 


440 


001770* 


000000 


441 


001772* 


000000 


442 


001774* 


000000 


443 


001776* 


000000 


444 


002000* 


000000 


445 


002002* 


000000 


446 


002004* 


000000 


447 


002006* 


000000 


448 


002010* 


000000 


449 


002012' 


000000 


430 


002014' 


000000 


451 


002016* 


000000 


432 


002020* 


000000 


453 


002022' 


000000 


454 


002024' 


000000 


435 


002026* 


000000 


436 


002030' 


000000 


457 


002032' 


000000 


458 


002034' 


000000 


459 


002036' 


000000 


460 


002040' 


000000 


461 


002042* 


000000 


462 







MACY11 30AC1052) 13»JUN-79 
MODULE PRIVATE DATA 

S+24 
5^26 
S + 30 
S+32 
S+34 
S + 36 
S + 40 
S+42 
84-44 
S + 46 



RHCSli 

RHWCl 

PHBAl 

PPDAI 

RHCS2I 

PPDSI 

FPERli 

RPASl 

RPLAl 

RHDBl 

PPMPj 

RPDTl 

RPSN| 

RPOFI 

PPDCl 

RPCCI 

RPER2I 

RPER3I 

RPECll 

RPFC2I 

RHBAEi 

RHCS3I 
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{**•! 



{DRB001 



{**-4 



{DRB001 
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{DRB001 



SEU 0011 



463 
464 
46S 
466 
467 
468 
469 
470 
471 
472 
473 
474 
47S 
476 
477 
478 
479 
480 
481 
482 
483 
484 
48S 
486 
487 
488 
489 
490 
491 
492 
493 
494 
495 
496 
497 
498 
499 
500 
501 
502 
503 
504 
505 
506 
507 
508 
509 
510 
511 
512 
513 
514 
515 
516 
317 
518 



002044' 
002052' 
002060* 
002066' 
P02074' 
002102' 
002104' 
002110* 
002114' 
002116' 
002120' 
002122' 
002124* 
002126' 
002132' 
002134' 
002142' 



012767 
012767 
012767 
016767 
123727 
001021 
113700 
012701 
105700 
001403 
006301 
105300 
000773 
130167 
001405 
113767 
004767 



002146' 

002146* 005067 
002152' 012767 

002160' 004767 
002164* 004767 
002170* 

002170' 104415 

002176' 012767 
002204' 104414 



002210' 
002210' 
002214' 
002216' 
002222' 
002226* 
002232* 

002234' 
002240' 
002242' 

002246' 
002246' 

002252* 

002254* 

002254* 
002260* 
002264* 
002270* 
002274* 
002302' 



004767 
103407 
004767 



004767 
000766 

005767 
001002 
104410 

104413 

000751 



004767 
004567 
004567 
004567 
104412 
002304* 



000004 
175722 
000041 



176042 
176036 
176032 
176576 
000011 



176540 

000040 
002252 



000040 176534 



176472 
000377 



003652 
003530 



176466 



9 SBTTL MODULE 
STARTl MOV 
MOV 
MOV 
MOV 
CMPB 
BNE 
MOVB 
MOV 
131 TSTB 
BEQ 
ASL 
DECB 

291 BITB 
BEQ 
MOVB 
JSR 



CLR 
MOV 



JSR 
JSR 



CODE 
#256.,WDTO 
»256.,WDFR 
#4,INTR 
DVID1,DVICE 
§#41, #11 
3$ 

9#40,R0 
#i,Rl 
R0 
2$ 
PI 
R0 
18 

RliDVICE 
3$ 

M40,UNITNO 
PC, DROP 



CYL 
*377,DSKADR 



PC, SETUP 
PCREZET 



000000' 000124* 
177777 176472 LOOPH 



LOOP2I 

35! 



GETPAg, BEGIN, RBUFVA 



001574 
176466 

000022 



176432 



MOV 
GWBUFS, 



JSR 
BCS 
JSR 
CLR 
JSR 
BP 



IS s 
2$l 



TST 
BNE 



#«i,UNITNO 
BEGIN 



PCPICKDP 

18 

PC,WRTLIM 

TRY 

PC, CYCLE 

LOOP2 

DVICE 
2$ 



CYCLEi 



000772 
000026 
000116 
000206 
000000* 000126' 



END$, BEGIN 
ENDITS, BEGIN 



JSR PCPICKPK 

JSP R5, WRITE 

JSR P5,WPITCK 

JSR R5,PEAD 

CDATA8, BEGIN, PBUFPA 



1256 WORDS TO MEM/ITERATION 
1256 WORDS FROM MEM/ITERATION 
{4 INTERRUPTS/ITERATION 
{GET DRIVES TO TEST 
;IF RP IS LOAD MEDIUM THEN 
{BEGIN 

| GET LOAD-DEVICE NUMBER 
INITIALISE DEVICE MASK 
WHILE NOT POINTING AT LOAD-DEVICE DO 
BEGIN 

SHIFT MASK TO NEXT DEVICE 
KEEP TRACK OF SHIFTING 
END 

IF LOAD DEVICE IS SELECTED THEN 
BEGIN 

MOVE LOAD-DEVICE NUMBER TO DRYVE 
DROP THE LOAD-DEVICE 
END 



{ 

{ 
i 
i 
» 

» 

{ 

{ 

{ 

{END 

{START AT CYLINDER 

{START AT TRACK 0, SECTOR 

{(* INCREMENT BEFORE TEST *) 

{CLEAR THE RH 



IDRB001 
{DRB001 
JDRB001 



{GET PHYSICAL ADDRESS FROM 16-BIT RBUFVA 



{PRE-SET UNIT NUMBER 
{GET WRITE BUFFER INFORMATION 
l#*-l 

{GO PICK A DRIVE 

{RETURNS HERE IF ALL DRIVES DONE 

{GET DISK LIMITS FOR THIS TYPE OF DISK 

{ELSE CLR RE TRY COUNT 

IGO DO A CYCLE ON THIS DRIVE 

{DO IT TO NEXT DRIVE 

{ANYBODY LEFT TO CHECK? 
{BR IF YES 



{SIGNAL END OF ITERATION, 
{MONITOR SHALL TEST END OF PASS 
{BR BACK IF NO 



{SELECT A SECTOR TO TEST 

{GO WRITE A BLOCK 

{GO DO WRITE CHECK 

{GO READ A BLOCK 

{ REQUEST FOR MONITOR TO CHECK DATA 

{ IF ERROR, CONTINUE 



{DRB001 



JDRB001 
{DRB001 



{DRB001 
{DRB001 



RPDC DEC/Xll SYSTEM EXERCISER MODULE 
XRPDC0 S P11 13»JUN»79 13101 

519 002304' 004767 000266 

520 002310' 000207 
521 



MACYll 30A(1052) 
MODULE CODE 
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JSR 
RTS 



PCPELESE 
PC 



JDRB001 



{RELEASE THE DRIVE 
{END CYCLE 



{DRB001 
{DRB001 






3C DEC/Xli SYSTEM EXERCISER MODULE 


MACYil 
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PDC0 8 


Pil 13«JUN-79 


13101 




MODULE 


CODE 




JDRB001 




322 
















(*#»66 


(URB001 


323 












, MACRO 


LINEUP EABITS 


( LINE UP EA BITS FOR KHCS1 




524 










• 


LINEUP 


EABITS 


( LINE UP EA BITS FOR RHCS1 




525 












9 NLIST 








526 












MOV 


EABITS, R0 


» GET EXTENDED MEMORY BITS 




327 












ASL 


R0 


5 SHIFT 4 PLACES TO THE LEFT 




528 












ASL 


R0 


( TO LINE UP WITH RHCS1 




329 












ASL 


R0 


> 




530 












ASL 


R0 


i 




331 












MOV 


P0,XMEM 


| SAVE THE SHIFTED BITS 




532 












,LIST 








533 
534 












9 ENDM 


LINEUP 






535 
536 


002312' 


012767 


000161 


176362 


WRITE! 


MOV 


#161,FUNC 


( LOAD WRITE FUNCTION 




537 


002320* 


012767 


002312' 


176362 




MOV 


#WRITE»FERADR 


;SAVE WHERE WE WERE 




538 


002326' 


P16746 


175610 






MOV 


WBUFSZ,»(SP) 


jGET WRITE SIZE 




539 


002332* 


005416 








NEG 


(SP) 


(NEGATE IT 




540 


002334' 


012677 


177432 






MOV 


CSP)+,@HHWC 


( LOAD WORD COUNT 




541 


002340* 


016777 


175570 


177426 




MOV 


WPUFPAiPRHBA 


I LOAD BUFFER ADDRESS 




542 


002346* 


016777 


176274 


177422 




MOV 


DSKADR,9RPDA 


( LOAD DISK ADDRESS 




543 


002334* 


016777 


176262 


177442 




MOV 


CYLNDPiSRPDC 


1 LOAD CYLINDER ADDRESS 


JDRB001 


544 










; 


LINEUP 


WBl'FEA 


I LINE UP EA BITS FOR RHCSt 




545 


002402' 


000167 


000302 






JMP 


GO 


( CONTINUE 




546 


002406' 


012767 


000131 


176266 


WRITCKj 


MOV 


8151, FUNC 


f LOAD WRITE-CHECK FUNCTION 




547 


002414* 


012767 


002406* 


176266 




MOV 


#WRITCK,FERADR 


(SAVE WHERE WE WERE 




548 


002422* 


016746 


175514 






MOV 


WPUFSZ,«CSP) 


(GET WPITh SIZE 




549 


002426' 


003416 








NEG 


(SP) 


(NEGATE IT 




550 


002430* 


012677 


177336 






MOV 


(SP)+,IRHWC 


( LOAD WORD COUNT 




551 


002434' 


016777 


175474 


177332 




MOV 


WBUFPA,8RHBA 


; LOAD BUFFER ADDRESS 




552 


002442* 


016777 


176200 


177326 




MOV 


DSKADP,aRPDA 


; LOAD DISK ADDRESS 




553 


002450' 


016777 


176166 


177346 




MOV 


CYLNDRfPRPDC 


» LOAD CYLINDER ADDRESS 


JDRB001 


554 










J 


LINEUP 


WBUFEA 


( LINE UP EA BITS FOR RHCS1 




555 


002476* 


000167 


000206 






JMP 


GO 


( CONTINUE 




556 


002502* 


012767 


000171 


176172 


READ! 


MOV 


#17i#FUNC 


( LOAD READ FUNCTION 




557 


002510* 


012767 


002502* 


176172 




MOV 


#READ*FERADR 


(SAVE WHERE WE WERE 




358 


002516' 


016746 


175410 






MOV 


RBUFSZ,»(SP) 


;GET READ SIZE 




559 


002522* 


005416 








NEG 


(SP) 


1NEGATE IT 




560 


002524' 


012677 


177242 






MOV 


(SP)+,9PHKC 


1 LOAD WORD COUNT 




561 


002530* 


016777 


175372 


177236 




MOV 


RBUFPAiSRHBA 


( LOAD BUFFER ADDRESS 




562 


002536' 


016777 


176104 


177232 




MOV 


DSKADR,£RPDA 


j LOAD DISK ADDRESS 




563 


002544* 


016777 


176072 


177252 




MOV 


CYLNDRrSPPDC 


( LOAD CYLINDER ADDRESS 


IDRB001 


564 










i 


LINEUP 


PBUFEA 


( LINE UP EA BITS FOR RHCS1 




565 


002572* 


000167 


000112 






JMP 


GO 


( CONTINUE 




566 


002576' 


016777 


176074 


177174 


PELESEl 


MOV 


UMTNO,<apHCS2 


(SET UP UNIT TO RELEASE 


(DRB001 


567 


002604* 


012777 


000013 


177156 




MOV 


#13,9PHCSi 


(EXECUTE RELEASE COMMAND 


JDRB001 


566 


002612' 


104407 


000000' 






BREAK!, 


BEGIN 


(TEMPORARY RETURN TO MONITOR,,,, 




569 


002616* 


104407 


000000' 






BREAKS, 


BEGIN 


(THEN CONTINUE AT NEXT INSTRUCTION, 




570 


002622* 


000207 








RTS 


PC 


(IT'S RELEASED 


(DRB001 


571 
572 
573 
















;#*«33 


JDRB001 


002624' 


016777 


176046 


177146 


CLEARi 


MOV 


UNITNO,@RHCS2 


} LOAD UNIT ADDRESS 




574 


002632' 


012777 


000011 


177130 




MOV 


*11* tPHCSl 


( ISSUE A DRIVE CLEAR 




575 


002640' 


000240 








NOP 




(WAIT 




576 


002642* 


000240 








NOP 




(FOR DRIVE CLEAR TO FINISH 




577 


002644* 


012777 


000023 


177116 




MOV 


#23,§PHCS1 


J ISSUE A PACK ACK 
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MACYll 30AU052) 
MODULE CODE 



13-JUN-79 13105 page is 



IDRB001 



illli 



11111 



578 
579 
580 
581 
582 
583 
584 
585 
386 
587 
388 
589 
590 
591 
592 
593 
594 
595 
596 
597 
598 
599 
600 
601 
602 
603 
604 
60S 
606 
607 
608 
609 
610 
611 
612 
613 
614 
615 
616 
617 
618 
619 
620 
621 
622 
623 
624 
625 
626 
627 
628 
629 
630 
631 
632 
§33 



002652* 
002656* 
002660* 
002662' 
002666* 
002672' 
002700' 
002706* 

002710* 
002716* 
002724* 
002726* 
002734' 
(002740* 
002744* 
002750* 
002754' 
002762* 
002770* 
002776* 
003004' 
003010' 
003016* 
003024* 
003032* 
003036* 
003040' 
003044' 
003050* 
003054' 
003056* 
>2* 



105777 
100401 
000774 
017746 
012677 
012777 
012777 
000205 

016777 
032767 
001434 
017767 
006267 
006267 
006267 
006267 
104416 
016777 
016777 
042767 
000367 
016767 
056767 
016777 
104400 
010046 
016700 
1)6000 
017746 
040016 
012677 
012600 



177120 
177114 

040000 
010000 



175762 

001000 

177042 
175670 
175664 
175660 
175654 



lit 

21! 



175644 
175640 
000034 
175624 
17562<* 
175606 
175652 
000000* 

173632 

003242* 

176732 

176724 



177070 
177114 



177062 
175132 



000626' 
177004 
177042 
175630 

175612 
175656 
176736 



003064' 000004 000000* 003072* 



003072* 004567 
003076* 103401 
003100* 000205 



003102* 
003104* 
003110* 
003112* 
003116* 
003124* 
003126* 
003132* 
003136' 



012603 
005767 
100410 
005267 
026727 
002002 
000177 
005067 
104403 



175576 
175572 



175536 
175532 



003144* 004767 
003130' 003367 
003154* 000167 



00000A* 006722' 

000102 
175522 
177030 



GOi 



TSTB 

BMI 

BR 

MOV 

MOV 

MOV 

MOV 

PTS 



MOV 
BIT 
BEQ 
MOV 
ASP 
ASR 
ASP 
ASR 
MAP22 
MOV 
MOV 
BIC 
SWAB 
MOV 
BIS 
MOV 
EXITS 
NTRUPTJ MOV 



IS! 



8RHCS1 

2$ 

1$ 

PPPAS,"CSP) 

(SP)+,3RPAS 

#BIT14,9RHCS1 

8PIT12,eRP0F 

R5 

UNITN0,@PHCS2 
#ADDR22,RES1 
1$ 

0P.HBA#PA18 
XMEM 
XMEM 
XMEM 
XMEM 

BEGIN, PAIS 
PA22,@RHBA 
EA22i?RHBAE 
*34,EA22 
EA22 

EA22,XMEM 
XMEM,FUNC 
FUNCSRHCSl 
, BEGIN 

R0,»(SP) 

UNITNO,P0 

BITTAB(P0),R0 

PRPAS,«(SP) 

P0#(SP) 

(P6)+,9RPAS 

(SP)+,P0 



} NO, WAIT TILL DONE 
(CLEAR AS BIT 

( CLEAR ANY CONTROLLER ERRORS 
» SET BIT FOR U FORMAT 
( RETURN 

j LOAD UNIT SELECT 

(22 BIT SUPPORT? 

(NO 

(GET 18 BIT ADDR 

(SHIFT EA BITS TO POSITION 4#5 



(DRB001 
(DRB001 



( GET 22»BIT ADDR FROM 18-BIT ADDR 
(LOAD BA REG 
(LOAD BAE REG 
(CLEAR UNWANTED BITS 
(LOAD INTO BITS 8,9 

(LOAD XMEM TO SET INTO FUNCTION CODE 
( LOAD EXTENDED MEMORY BITS 
1 EXECUTE THE FUNCTION 

(EXIT TO M0NIT0R 9 MODULE WAIT FOR INTERRUPT, 
(SAVE R0 



( QUEUE UP TO CONTINUE AT 18 AND RTI 



411 
311 



MOV 

MOVB 

MOV 

BIC 

MOV 

MOV 

»•••-• — ••• — 

PIPQS, BEGIN, 1$ 

y ............. «.».«»»,..„„„„„„,„«„ ..„„„„„„«»„„..»„. ..»..„ 

JSR R5»ERR0RS j GO CHECK FOR ERRORS 

BCS 2S (ERRORS DETECTED 

RTS R5 (OTHERWISE, RETURN OK 

MOV (SP)+,R5 (RESTORE P5, SINCE WE WON'T RETURN 

TST FLAG (DON'T RETRY ON HARD ERROR 

BMI 4$ 

INC TRY (COUNT AN ERROR 

CMP TRY, #3 |T00 MANY FOP THIS CYCLE? 

BGE 4$ , B R IF SO 

JMP iFERADR |RE»EXECUTE THE DRIVER ROUTINE 

CLR FLAG (CLEAR HARD ERROR BIT 

MSGN|, BEGIN, EXCED (ASCII MESSAGE CALL WITH COMMON HEADER 

j##»7 

JSR PCPICKBK jTRY A DIFFERENT BLOCK 

DEC UNITNO (WANT TO RE«DO SAME DRIVE WERE ON 

JMP L00P2 JGQ DO IT 

(##»2 



(DRB001 
(DRB001 
(DRB001 

(DRB001 

(DRB001 
(DRB001 



(DRB001 



RPDC DEC/Xil SYSTEM EXERCISER MODULE 
XRPDC0 9 PH 13«JUN»79 13|01 



MACY11 30AC1052) 
MODULE COPE 



13*JUN»79 1 3 ««5 PAGE 16 



|DRB0&U 



634 
633 
636 
637 
638 
639 
640 
641 
642 
643 
644 
643 
646 
647 
648 
649 
6S0 
6S1 
632 
6S3 
654 
635 
656 
657 
658 
659 
660 
661 
662 
663 
664 
663 
666 
667 
668 
669 
670 
671 
672 
673 
674 
675 
676 
677 
678 
679 
680 
681 
682 
683 
684 
685 
686 
687 
688 
689 



003160* 
003160* 
003164* 
003H2' 
003174* 
003176* 



005267 
026727 
001002 
000261 



003204* 
003212' 
003214' 
003216' 

003216* 
003222* 
003224* 
003230* 
003234* 
003236* 
003240' 
003242' 
003244* 
003246' 
P03250* 



016700 
136067 
001001 
000761 



004567 
103402 
004767 
004767 
103751 
000241 
000207 
001001 



003232* 
003260' 
003262' 
003266' 
003270* 



003270' 
003274' 
003300* 
003304* 
003310' 
003314* 
003316* 
003322* 
003326' 
003332* 
003334* 



032767 
001403 
105267 
000432 



104417 
016700 
042700 
010067 
016700 
000300 
042700 
110067 
016700 
000241 
006100 



175512 

175506 000010 



175472 
003242* 175460 



002322 
002120 



53! 
BITTABl 



020020 
100100 



INC 

CMP 

BNE 

SEC 

BR 

MOV 

BXTB 

BNE 

BR 



JSR 
BCS 
JSR 
JSP 
BCS 
CLC 
RTS 

1001 

4004 



000040 174536 



174554 
176000 
175334 
174540 

177740 
175320 
174522 



UNITNO 

UHITNC,88, 

29 



l##-17 



IPOINT TO NEXT DRIVE 

fDONE LOOKING? 

>BR IF NOf ELSE 

|SET CARRY FOR NO-MORE»DHIVES 
SS IEXIT ROUTINE 

UNITNO, R0 |USE AS AN INDEX 
RlTTAB(R0),DVICE ITEST THIS DEVICE? 
3$ |BR IF YES, ELSE 

16 

j*#-l 
P5, READY JSEE IF DRIVE IS READY 
43 |BR IF IT WAS READY 

PCNOTRDY JELSE GO CLEAR IT AND CHECK AGAIN 
PCGETDVT |IS THIS LEGAL DRIVE TYPE? 
18 JILLEGAL TYPEl DROPPED. TRY NEXT 

fRETUPN, NEXT DRIVE AVAILABLE 
PC ;GO HOME 



l**-ll 

|(* FUNCTION! SELECT NEXT DISK ADDRESS TO TEST, •) 

|(* AVOID WRITING OVER KNOWN BAD SPOTS OR DISK'S BAD *) 

|(* SPOT FILE (IF OPERATOR TELLS US IT'S THEREK CYL #) 

It* IS "RELATIVE ADDRESS", MAX RANGE 0-410 (RP04/5) OR*) 

j(» 0-407 (PP06)| THIS IS MOVED TO CYLNDR AND INCRE- *) 

|(# MFNTED TO SECOND HALF IF THIS COPY OF RPD IS IN *) 

|(# PORT R MODE, *) 

IIF SEQUENTIAL SEEKS THEN 

jBEGIN 

I SECTOR I* SECTOR ♦ 1 

;END 

lELSE C« RANDOM SEEKS «) 

(BEGIN (# FUDGE 3 UN-PELATED 

I C* NUMBERS FROM I RAND CALL # 

I R0 I* RANNUM 

| R0 S3 Rgi MOD 1024, 

I CYL 1= P0 

| "RECHARGE" R0 

| R0<0|B> |b R0<8l8> 

I R0 ia R0 MOD 32, 

I SECTOR 1= R0 

I AND AGAIN 

I CARRY 1= 

» CARRY is R0<15ll> 



BIT 


#NOPAND,SPl 


BEO 


18 


INCB 


SECTOR 


BR 


28 


RANDS 


t BEGIN 


MOV 


RANNUM, P0 


BIC 


*176000,R0 


MOV 


R0,CYL 


MOV 


RANNUM, R0 


SWAB 


R0 


BIC 


#177740, R0 


MOVB 


P0, SECTOR 


MOV 


RANNUM, R0 


CLC 




POL 


R0 



IDRB001 



|DRB001 
IDRB001 



IDRB001 

|DRB001 

IDRB001 
JDRB001 
|DRB001 
IDRB001 



IURB001 
IDRB001 
JDRB001 
IDRB001 
JDRB001 
IDRB001 
IDRB001 
IDRB001 
|DRB001 
IDRB001 
IDRB001 
IDRB001 
JDRB001 
IDRB001 
|DRB001 
IDRB001 

IDRB001 
JDRB001 
IDRB001 
JDRB001 
IDRB001 
IDRB001 
IDRB001 
|DRB001 
IDRB001 
|DRB001 



DC DEC/X11 SYSTEM EXERCISER MODULE 


MACY11 
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?DC0 g 


Pll 13-JIIN-79 


13101 




MODULE 


CODE 






IDRB001 




SEQ 0016 


690 


003336* 


006100 








ROL 


R0 






IDRB001 




691 


003340' 


006100 








ROL 


R0 






JDRB001 




692 


P03342* 


006100 








POL 


R0 






JDRB001 




693 


003344* 


042700 


177740 






BIC 


#177740, P0 


R0 is £R0<0I13>#8,) + R0<13!3> 


JDRB001 




694 
















| (« NOTEl THE FORMULAE USED 


ARE *) 


JDRB001 




693 
















| (* ABSOLUTELY IRRELEVANT 


*) 


{DRB001 




696 


003350' 


110067 


175273 






MOVB 


R0, TRACK 


5 TRACK IB R0 




IDRB001 




697 


003354' 








2S 1 






END 




JDRB001 




698 


003354* 


126727 


175266 


000023 




CMPB 


SECTOR, *21, 


IF SECTOR GT 21, THEN 




IDRB001 




699 


003362' 


003412 








BLE 


38 


BEGIN 




IDRB001 




700 


003364' 


105267 


173257 






IKCB 


TRACK 


} TRACK |a TRACK + 1 




JDRB001 




701 


003370* 


016700 


175252 






MOV 


SECTOR, R0 


R0 1= SECTOR 




JDRB001 




702 


003374' 


012701 


000026 






MOV 


#22.,R1 


Rl |= • OF SECTORS IN TRACK 




JDRB001 




703 


003400' 


004767 


000762 






JSR 


PCMODLUS 


R0 is R0 MOD Rl 




JDRB001 




704 


003404* 


110067 


175236 






MOVB 


R0, SECTOR 


SECTOR is R0 




IDRB001 




705 


003410' 








3$i 






END 




JDRB001 




706 












j(* NOW 


, CUT VALUES DOWN 


TO LEGAL RANGES FOR CURRENT 


DRIVE TYPE 


*) JDRB001 




707 


003410' 


126727 


175233 


000322 




CMPB 


TRACK, #18, 


IF TRACK GT 18, THEN 




JDRB001 




708 


003416* 


003412 








BLE 


4$ 


BEGIN 




IDRB001 




709 


003420' 


005267 


175220 






INC 


CYL 


CYL 1= CYL + 1 




IDRB001 




710 


003424' 


116700 


175217 






MOVB 


TRACK, P0 


R0 1= TRACK 




JDRB001 




711 


003430' 


012701 


000023 






MOV 


#19,, PI 


Rl is 19, 




JDRB001 




712 


003434' 


004767 


000726 






JSR 


PC,MODLUS 


R0 is R0 MOD Rl 




JDRB001 




713 


003440' 


110067 


175203 






MOVB 


R0, TRACK 


TRACK is R0 




IDRB001 




714 


003444' 








481 






END 




JDRB001 




715 


003444* 


026767 


175174 


175166 




CMP 


CYL,CYLLIM 


IF CYL GT t OF CYLINDERS IN 


RANGE THEN 


IDRB001 




716 


003452' 


002421 








BLT 


58 


BEGIN 




JDRB001 




717 


003454* 


032767 


000040 


174334 




BIT 


#NORAND,SRl 


IF SEQUENTIAL SEEKS THEN 




IDRB001 




718 


003462* 


001405 








BEQ 


68 


BEGIN 




JDRB001 




719 


H03464* 


003067 


175154 






CLR 


CYL 


RESET CYLINDER 




IDRB001 




720 


003470' 


005067 


175152 






CLR 


DSKADP 


TRACK |8 0, SECTOR |s 




|DRB001 




721 


003474* 


000410 








BR 


78 


END 




JDRB001 




722 


003476* 








681 






ELSE 




JDRB001 




723 
















BEGIN 




IDRB001 




724 


003476* 


016700 


175142 






MOV 


CYL,R0 


R0 is CYL 




JDRB001 




725 


003502' 


016701 


175132 






MOV 


CYLLIM,R1 j 


Rl is CYLLIM 




IDRB001 




726 


003506' 


004767 


000654 






JSR 


PCMODLUS j 


R0 |s R0 MOD PI 




JDRB001 




727 


003512* 


010067 


175126 






MOV 


R0rCYL 


CYL !» R0 




IDRB001 




728 


003516' 








711 






END 




JDRB001 




729 


003516* 








58! 






END 




IDRB001 




730 


003316' 


016767 


175122 


175116 




MOV 


CYL, CYLNDR 


CYLNDR is CYL 




|DHB001 




731 


003324' 


032767 


000020 


174264 




BIT 


#BPORT,SPl | 


IF BPORT AND DUAL PORT THEN 








732 


003532' 


001407 








BEQ 


8$ 


BEGIN 




JDRB001 




733 


003334' 


032767 


000001 


175126 




BIT 


#BIT0,FLAG | 






IDRB001 




734 


003542* 


001403 








BEQ 


88 | 






JDRB001 




735 


003344* 


066767 


175070 


175070 




ADD 


CYLLIM, CYLNDR J 


INCREMENT TO SECOND HALF OF 


DISK 


IDRB001 




736 


003532' 








8S| 






END 




JDRB001 




737 


003552* 


026767 


175064 


175076 




CMP 


CYLNDR, LASCYL 


IF CYLNDR GT LASCYL THEN 




IDRB001 




738 


003360* 


003431 








BLE 


9$ j 


BEGIN 




JDRB001 




739 


003362* 


016767 


175070 


175052 




MOV 


LASCYL, CYLNDR j 


CYLNDR is LASCYL C* TRUNCATE •) 


IDRB001 




740 


003570* 


032767 


000040 


174220 




BIT 


#NORAND,SRl | 


IF SEQUENTIAL THEN 




|DRB001 




741 


003376' 


001404 








BEQ 


10$ j 


BEGIN 




IDRB001 




742 


003600* 


005067 


173040 






CLR 


CYL , 


RESET CYLINDER 




|DRB001 




743 


003604* 


005067 


175036 






CLR 


DSKADR | 


TRACK !» 0, SECTOR I* 




IDRB001 




744 


003610' 








10SI 






END 




IDRB001 




743 


003610* 


12S767 


175033 


175042 




CMPB 


TRACK, LASTRK | 


IF TRACK GT LASTRKK THEN 




IDRB001 
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PDC0 a 


Pll 13-JUN-79 


13801 




MODULE 


CODE 






JDRB00 




746 


003616* 


003412 








BLE 


11$ 


! BEGIN 




JDRB001 


747 


003620* 


116767 


175034 


175021 




MOVR 


LASTRK,TRACK 


I TRACK 1= LASTRK 




JDRB001 


748 


003626' 


126767 


175014 


175026 




CMPb 


SECTOR, LASSEC 


J IF SECTOR GT LASSEC THEN 




IDRB001 


749 


003634" 


003403 








BLE 


128 


1 BEGIN 




JDRB001 


750 


003636* 


116767 


175020 


175002 




MOVE 


LASSEC, SECTOR 


J SECTOR |s LASSEC 




JDRB001 


751 


003644' 








1281 






1 END 




JDRB001 


752 


003644' 








111 1 






J END 




JDRB001 


753 


003644* 








911 






IEND 




IDRB001 


754 




















IDRB001 


755 












;(# NOW, CHECK BADSPOT T 


ABLE #) 




IDRB001 


756 


003644* 


012700 


000252' 






MOV 


#BADSPT,R0 


?P0 la ADDRESS OF TABLE 




JDRB001 


757 


003630* 


016701 


174762 






MOV 


NXTB8K,R1 


IR1 is END OF TABLE 




JDRB001 


758 


003654* 


116702 


174766 






MOVB 


SECTOR, P2 


JR2 la SECTOR 




IDRB001 


759 


003660* 


116703 


174763 






MOVB 


TPACK f P3 


|R3 l« TRACK 




JDRB001 


760 


003664* 


016704 


174752 






MOV 


CYLNDR,R4 


JR4 la CYLNDP 




JDRB001 


76i 












I(* CALCULATE UPPER L1MI 


T OF THIS WRITE #) 




JDRB001 


762 


003670* 


066702 


174772 






ADO 


SIZSECR2 


IR2 1= R2 + # OF SECTORS IN WRITE 


JDRB001 


763 


003674* 


020227 


000025 






CMP 


R2,S)21, 


|IF R2 GT 21, THEN 




|DRB001 


764 


003700* 


003403 








BLE 


138 


{BEGIN 




IDRB001 


765 


003702' 


005203 








INC 


R3 


J R3 is R3 + 1 CINCR, UPPER TRACK) 


IDRB001 


766 


003704' 


162702 


000026 






SUB 


#22,,R2 


I TRUNCATE R2 




JDRB001 


767 


003710' 








13$: 






»END 




JDRB001 


768 


003710* 


066703 


174750 






ADD 


SIZTRK,R3 


;R3 1= R3 + TRKSIZ 




JDRB001 


769 


003714' 


020327 


000022 






CMP 


R3,U8, 


1 IF R3 GT 18, THEN 




JDRB001 


770 


003720' 


003403 








BLE 


MS 


jBEGIN 




IDRB001 


771 


003722' 


005204 








INC 


R4 


J R4 is R4 + 1 CINCR. UPPER CYLINDER) 


JDRB001 


772 


003724* 


162703 


000023 






SUB 


#19„,P3 


J TRUNCATE R3 




JDRB001 


773 


003730* 








14$ Z 






;end 




JDRB001 


774 


003730* 


020001 






15* 1 


CMP 


P0,R1 


>WHILE R0 LT Rl DO 




IORB001 


775 


003732* 


002030 








BGE 


169 


JBEGIN 




IDRB001 


776 


003734* 


026710 


174702 






CMp 


CYLNDR, (R0) 


J IF CYLNDR LE CR0) AND R4 GE CR0) 


JDRB001 


777 


003740* 


003022 








BGT 


17$ 


; AND TRACK LE 3(R0) AND R3 GE 


3CR0) 


IDRB001 


778 


003742* 


020410 








CMP 


R4,(R0) 


> AND SECTOR LE 2CR0) AND R2 GE 2CR0) 


THEN;DRB001 


779 


003744' 


002420 








BLT 


17S 






JDRB001 


780 


003746' 


126760 


174675 


000003 




CMPB 


TRACK, 3(R0) 






JDRB001 


781 


003754* 


003014 








BGT 


178 






JDRB001 


782 


003756* 


120360 


000003 






CMPB 


R3,3(R0) 






JDRB001 


783 


003762* 


002411 








BLT 


178 






JDRB001 


784 


003764* 


126760 


174656 


000002 




CMPB 


SECTOR, 2(R0) 






JDRB001 


785 


003772* 


003005 








BGT 


178 






JDRB001 


786 


003774' 


120260 


000002 






CMPB 


R2,2(R0) 






IDRB001 


787 


004000* 


002402 








BLT 


178 


; BEGIN 




JDRB001 


788 


004002* 


000167 


177244 






JMP 


PICKBK 


J TRY ANOTHER SECTOR 




|DRB001 


789 


004006* 








1711 






J END 




JDRB001 


790 


004006* 


062700 


000004 






ADD 


#4,R0 


| INCREMENT TO NEXT BAD SPOT 




JDRB001 


791 


004012' 


000746 








BR 


158 


JEND 




IDRB001 


792 


004014* 








16* I 










JDRB001 


793 


004014* 


000207 








RTS 


PC 


JCPU GO HOMEUl t 




IDRB001 


794 




















JDRB001 


795 




















JDRB001 


796 


004016* 








WRTLIMj 










JDRB001 


797 












;(« WE 


ALLOW USER TO CHANGE WBUFSZ "AT WlLL n »<»THEREFORE 


*) 


JDRB001 


798 












K* WE 


DO NOT AUTOMATICALLY KNOW THE TRANSFER SIZE, 


*) 


JDRB001 


799 












J C* COMPUTATION IS MADE 


EASIER, FURTHERMORE, IF WE HAVE 


*) 


IDRB001 


800 












j(# THE 


SIZE BROKEN INTO 


TRACKS AND SECTORS (SINCE 


#) 


JDRB001 


801 












J C* WBUFSZ IS ONE WORD, 


THE TRANSFER CAN'T BE GREATER 


*) 


JDRB001 
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802 












JC* 


THAN 12 TRACKS). 


THIS ROUTINE ALSO CALCULATES THE #) 


JDRB001 


803 












l(* 


UPPER LIMITS ON DISK WRITES SO AS NOT TO OVERFLOW #) 


JDRB001 


804 












jf* 


HIGH CYLINDER, 


*) 


IDRB001 


80S 




















IDRB001 


806 


004016' 


016700 


174120 






MOV 




WBUFSZ, R0 


>R0 la ALLOCATED WRITE BUFFER 


IDRB001 


807 


004022' 


000300 








SWAE 




PR 


;R0 is R0 / 256, 


JDRB001 


808 


004024' 


042700 


177400 






BIC 




#177400, R0 


J (# R0 IS WBUFSZ IN SECTORS ») 


JDRB001 


809 


004030' 


005067 


174630 






CLR 




SIZTRK 


jSIZTRK |b 


JDRB001 


810 


004034* 


'020027 


000026 




181 


CMP 




R0,«22, 


JWHILE R0 GE 22, DO 


IDRB001 


811 


004040* 


002405 








BLT 




28 


jBEGIN 


JDRB001 


812 


004042* 


105267 


174616 






INCE 




SIZTRK 


1 SIZTRK 1= SIZTRK t 1 


IDRB001 


813 


0e4046* 


162700 


000026 






SUB 




#22,,R0 


1 DECREMENT SECTORS BY 1 TRACK 


|DRB001 


814 


004052* 


000770 








BP 




18 


JEND 


JDRB001 


815 


004054' 


010067 


174606 




281 


MOV 




R0,SIZSEC 


jSIZSEC 1= REMAINDER 


JDRB001 


816 


004060* 


012701 


000022 






MOV 




•18, ,R1 


JRl 1= HIGH TRACK 


IDRB001 


817 


004064* 


012702 


000025 






MOV 




#21«»R2 


JR2 la HIGH SECTOR 


|ORB001 


818 


004070' 


160002 








SUB 




P0,P2 


;P2 is R2 » SIZSLC 


IDRB001 


819 


004072' 


005702 








TST 




R2 


J IF P2 LT THEN 


JDRB001 


820 


004074* 


002003 








BGE 




36 


JBEGIN 


IDRB001 


821 


004076' 


062702 


000026 






ADD 




#22 8 ,R2 


J INCREMENT BACK UP 


JDRB001 


822 


004102' 


005301 








DEC 




Rl 


1 CAN'T FIT THAT LAST TRACK,, , 


JDRB001 


823 


004104* 








381 








jEND 


|DRB001 


824 


004104' 


166701 


174554 






SUB 




SIZTRK, PI 


JRl is Rl • SIZTRK 


IDRB001 


825 


004110* 


005701 








TST 




PI 


|IF Rl LT THEN 


IDRB001 


826 


004112' 


002004 








BGE 




43 


JBEGIN 


|DRB0(f)l 


827 


004114* 


062701 


000023 






ADD 




#19,, PI 


| INCREMENT Rl BACK UP 


JDRB001 


828 


0104120* 


005367 


174532 






DEC 




LASCYL 


J LASCYL |B LASCYL • 1 


IDRB001 


829 


004124* 








482 








IEND 


IURB001 


830 


004124' 


010167 


174530 






MOV 




Rl, LASTRK 


JLASTRK is HIGHEST TRACK WE CAN WRITE 


|DRB0idl 


831 


004130' 


010267 


174526 






MOV 




R2, LASSEC 


jLASSEC |= HIGHEST SECTOR WE CAN WRITE 


|DRB001 


832 


004134' 


000207 








RTS 




PC 


IEND OF ROUTINE 


IDRB001 


833 


004136* 








GETDVTi 










JDRB001 


834 












JC* 


FIND WHICH TYPE OF 


DRIVE THIS IS, IF RP04/5, SET CYLLIM *) 


IDRB001 


835 












»(• 


TO 


206, IF RP06, 


SET CYLLIM TO 408, DROP THE DRIVE IF *) 


JDRB001 


836 












K* 


IT 


IS NOT A RP04/5/6 «) 


IDRB001 


837 
838 


004136* 


016777 


174534 


175634 




MOV 




UNlTNO,iRHCS2 


ISELECT THE DRIVE 


JDRB001 
IDRB001 


839 


004144' 


027727 


175646 


024022 




CMP 




IRPDT, #24022 


J IF IT IS AN RPtj6 DUAL PORT THEN 


|DRB001 


840 


E041S2' 


001012 








BNE 




18 


JBEGIN 


IDRB001 


841 


004154* 


052767 


000001 


174506 




BIS 




#BIT0,FLAG 


J DUAL PORT 


|DRB001 


842 


004162* 


012767 


000630 


174450 




MOV 




#408,, CYLLIM 


J CYLLIM |= 408, 


IDRB001 


843 


004170* 


012767 


001456 


174460 




MOV 




#814,, LASCYL 


} LASCYL |a DISK HIGH LIM 


|DRB001 


844 


004176* 


000471 








BR 




28 


IEND 


IDRB001 


845 


004200' 








111 








IFLSE 


|DRB001 


846 


004200' 


027727 


175612 


024021 




CMp 




iHPDT, #24021 


J IF IT 18 RP04/5 DUAL PORT THEN 


IDRB001 


847 


004206' 


001404 








BEQ 




38 


I 


JDRB001 
IDRB001 


848 


004210* 


027727 


175602 


024020 




CMP 




8RPDT, #24020 


1 


849 


004216 s 


001012 








BNE 




4S 


IBEGIN 


JDRB001 


850 


004220* 








3$l 










IDRB001 


8§1 


004220' 


052767 


000001 


174442 




BIS 




#EIT0,FLAG 


1 DUAL PORT 


|DRB001 


832 


004226* 


012767 


000316 


174404 




MOV 




#2fc6 B , CYLLIM 


1 CYLLIM SB 206, 


IDRB001 


953 


004234* 


012767 


000632 


174414 




MOV 




#410,, LASCYL 


1 LASCYL |B DISK HIGH LIM 


JURB001 


854 


004242 s 


000447 








PR 




58 


?END 


IDRB001 


855 


004244* 








4$l 








JELSE 


|DRB001 


836 


004244* 


027727 


175546 


020022 




CMP 




IPPDT, #20022 


IIF RP06 SINGLE PORT THEN 


IDRB001 


857 


@04252* 


001012 








BNE 




68 


IBEGIN 


IDRB001 



>C DECVXU SYSTEM EXERCISER MQD"LE 


MACY11 
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»DC0 B 


Pll 13*JUN«79 


13|01 




MODULE 


CODE 




(DRB001 




858 


004254* 


042767 


000001 


174406 




BIC 


t*BIT0,FLAG 


( SINGLE PORT 


(DRB001 


8S9 


004262* 


012767 


001457 


174350 




MOV 


U81S a ,CYLLIM 


1 CAN USE ENTIRE DISK 


(DRB001 


860 


004270* 


012767 


001456 


174360 




MOV 


8814», LASCYL 


| LASCYL is DISK HIGH LIMIT 


(DRB001 


861 


004276' 


000431 








BR 


2$ 


(END 


(DRB001 


862 


004300 s 








68! 






(ELSE 


(DRB001 


863 


004300* 


027727 


175512 


020021 




CMP 


IRPDT, #20021 


1IF RP04/5 SINGLE PORT THEN 


(DRB001 


164 


004306' 


001404 








BEQ 


8$ 




(DRB001 


865 


004310* 


027727 


175502 


020020 




CMP 


8PPDT, #20020 




(DRB001 


866 


004316* 


001012 








BNE 


93 




(DRB001 


867 


004320' 








8$S 






(BEGIN 


(DRB001 


866 


004320* 


042767 


000001 


174342 




BIC 


#BIT0,FLAG 


( SINGLE PORT 


(DRB001 


869 


004326' 


012767 


000633 


174304 




MOV 


M11,#CYLLIM 


( USE ENTIRE DISK 


(DRB001 


870 


004334* 


012767 


000632 


174314 




MOV 


#410., LASCYL 


( LASCYL |a DISK HIGH LIMIT 


(DRB001 


871 


004342* 


000407 








BR 


23 


(END 


(DRB001 


872 


004344* 








93! 






(ELSE 


(DRB001 


873 
















(BEGIN 


(DRB001 


874 


004344* 


004767 


000051 






JSR 


PC, DROP 


( DROP THE DRIVE 


(DRB001 


875 


004350' 


104403 


000000' 


007012* 




MSGNS 


rBEGIN,BADTYP 


(ASCII MESSAGE CALL WITH COMMON HEADER 




876 


004356' 


000261 








SEC 




( ERROR RETURN 


(DRB001 


877 


004360' 


000401 








BP 


7$ 




(DRB001 


878 


004362* 








5$| 






(END 


(DRB001 


879 


004362' 








2$! 








(DRB001 


880 


004362' 


000241 








CLC 




(NO ERROR 


(DRB001 


881 


004364' 








7$l 








(DRB001 


882 


004364' 


000207 








RTS 


PC 


(RETURN 


(DRB001 


883 


004366* 








MODLUSI 








(DRB001 


884 












((* THIS LITTLE ROUTINE 


COMPUTES R0 MODULUS Rl *) 


(DRB001 


885 












(C* 


[ v E.r THE REMAINDER OF P0/B1, AND RETURNS THE #) 


(DRB001 


886 












((# ANSWER IN R0, 


*) 


(DRB001 


887 


004366' 


020001 






1$I 


CMP 


R0,R1 


(WHILE R0 GE Rl DO 


(DRB001 


888 


004370* 


002402 








BLT 


2$ 


(BEGIN 


(DRB001 


889 


004372' 


160100 








SUB 


R1,R0 


( R0 la R0»R1 


(DRB001 


890 


004374' 


000774 








BP 


IS 


(END 


(DRB001 


891 


004376* 








2$I 






( 


(DRB001 


892 
893 
894 


004376* 


000207 








RTS 


PC 


(THAT'S ALL 


(DRB001 


004400* 


012700 


000716* 




CLPRBi 


MOV 


8PBUF,R0 


(CLEAR RBUF BUFFER 




895 


004404' 


016701 


173522 






MOV 


RBUFSZ#R1 


(GET ITS ADDR AND SIZE 




896 


004410* 


005020 






CLRCOMi 


CLR 


(R0) + 


(CLEAR ANOTHER 




897 


004412' 


005301 








DEC 


Rl 


(COUNT ANOTHER 




898 


004414* 


001375 








BNE 


CLRCOM 


(BR BACK TILL DONE 




899 


004416' 


000207 








RTS 


PC 






900 




















901 


004420* 


012701 


000001 




DROPi 


MOV 


llfRl 


( INITIALIZE DROP PICKER 




902 


004424* 


016700 


174246 






MOV 


UNITNO, R0 


> GET THE DRIVE NUMBER 




903 


004430' 


001403 








BEQ 


2S 


» IF DRIVE GO DROP IT 




904 


004432' 


006301 






ISt 


ASL 


Rl 


( POINT TO NEXT DRIVE 




905 


004434* 


005300 








DEC 


R0 


( IS THIS THE ONE 7 




906 


004436* 


001375 








BNE 


15 


I NO, LOOK AGAIN 




907 


004440* 


040167 


174226 




2$S 


BIC 


Ri,DVICE 


( DROP THE DRIVE 




908 












j bit*************************************************®********!*** 


909 
















(CONVERT UNITNO TO ASCII AND 




910 
















(STORE AT ADR1 




911 


004444* 


104420 


000000* 


000676' 




OTOAS 


BEGIN, UNITNO, ADR1 






912 


004452' 


007024* 
















913 












( *«##*###■»*■»*■»«'*#•»#«#«*■»#■»#■»*#«•*'»##•»•»'»*#■»###*»#•»*'»#*####•»###'»#«■ 
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(DRB001 



914 
915 
916 
917 
918 
919 
920 
921 
922 
923 
924 
925 
926 
927 
928 
929 
930 
931 
932 
933 
934 
935 
936 
937 
938 
939 
940 
941 
942 
943 
944 
945 
946 
947 
948 
949 
950 
951 
952 
953 
954 
955 
956 
957 
958 
959 
960 
961 
962 
963 
964 
965 
966 
967 
968 
939 



004454* 000207 



004456* 
004456* 
004462* 
004464* 
004466' 

004472* 

004472* 
004474* 
004500* 

004500* 
004504* 
004506* 
004512' 
004514* 
004520' 
004524' 
004526' 
004532' 
004540' 
004542' 
004550' 

004554* 
004554* 

004560' 
004566* 
004570' 
004576* 



004606' 
004610* 
004614' 
004622' 
004624* 
004630' 
004630* 
004636* 
004640' 
004640' 
004646* 
004654* 



005777 
100403 
000241 
000167 



005000 
016701 



012160 
005720 
020027 
002772 
004767 
005767 
100015 
005267 
032767 
001005 
104403 
000167 



000167 

032767 
001020 
032767 
001471 
032767 
001402 
000167 
032767 
001402 
000167 

032767 
001434 

116767 
116767 
016767 



175306 
000654 



0W05S2* 
000046 



001162 
174036 



174146 

000004 



000000' 
000440 



000502 
000100 

000020 

100000 



173256 
006726' 



174000 
173770 
173760 



TST 
BMI 
CLC 
JMP 



CLR 
MOV 



MOV 
TST 
CMP 
BLT 
JSR 
TST 
BPL 
INC 
BIT 
BNE 



fRHCSl 
IS 



R0 
RHCSl,Rl 



CP1)+,SCR0) 

(R0H 

R0,#46 

3$ 

PCERSUBl 

S + 10 

48 

DLTCNT 

#DLATE,SRl 

5$ 



MSGN$, BEGIN, DLTERR 



000400 173744 



3100 173160 



173714 
173707 
173730 



004662' 104420 000000' 
004670* 007024* 



174004 
174000 
173766 



000676* 



30S( 

8$l 
lilt 



JMP 



JMP 

BIT 
BNE 
BIT 
BF.Q 
BIT 
BEQ 
JMP 
BIT 
BEQ 
JMP 

BIT 
BEQ 



63 



7$ 

#BIT6,S+14 

8S 

#BIT4 f S+14 

9$ 

#BITl5r5+l4 

308 

60 

#RIT8,S+14 

8$ 

10$ 

#BDSPTrSRl 
12$ 



IF NO ERROR THEN 
BEGIN 
SET NO ERROR 
RETURN NO ERROR 
END 
ELSE 
BEGIN 
R0 1= 

BEGIN OF REGISTER POINTERS 
REPEAT 
BEGIN 
MOV REGISTER TO TEMPORARY 
ADVANCE POINTER 
END 

UNTIL R0 GE 4b 
GET SOME TRIVIAL INFO 
IF DATA LATE ERROR THEN 
BEGIN 
COUNT IT UNCONDITIONALLY 
IF OPERATOR WANTS MESSAGE THEN 
BEGIN 
ASCII MESSAGE CALL WITH COMMON HEADER 
HARD ERROR PROCESS 
END 
EL5E 
NO MESSAGE "HARD ERROR" RETURN 
END 

IF ER1<6> OR C ERl<4> AND NOT 
ERi«15> AND NOT ER1<8> ) THEN 



(a HARD ERROR #) 



(* SOFT ERROR *) 
BEGIN (a BADSPOT #) 
IF OPERATOR WANTS TYPEOUT THEN 



BEGIN 

MOVB S+6,BAD3EC ( SET CURRENT SECTOR 

MOVB S+7,BADTRK ( SET CURRENT TRACK 

MOV S+36#BADCYL > SET CURRENT CYLINDER 

(«4»###«##««#««#«##«««»# l »#««##»#»«««##«««««#»#««#»««##««»«#»##«»« 

CONVERT UNITNO TO ASCII AND 
STORE AT ADR1 



(DRB001 
(DRB001 
(DRB001 
JDRB001 
(DRB001 
(DRB001 
(DRB001 
(DRB001 
(DRB001 
(DRB001 
(DRB001 
(DRB001 
(DRB0H1 
(DRB001 
(DRB001 
(DRB0K31 
(DRB001 
(DRB001 
(DRB001 
(DRB001 
(DRB001 
(DRB001 

(DRB001 
(DRB001 
(DRB001 
(DRB001 
JURB0W1 
(DRB0W1 
(DRB001 
(DRB001 
(DRB001 
(DRB001 
(DRB001 
(DRB001 
(DRB001 
(DRB001 
(DPB001 
(DRB001 
JDRB001 
(DRB001 
(DRB001 
(DRB001 
(DRB001 
(DRB001 



OTOAS, BEGIN, UNITNO, ADR1 

(##«########«#«#«###«#####«««»##«####4»»«##«ft#«##«#####««»#««### 

(CONVERT BADCYL TO ASCII AND 



XRPI/C0, 


PH 1J»JU»MI 


11101 




970 










971 


004672* 


S04420 


000000" 


000650 


972 


004700* 


006614' 






973 










974 










97S 










976 










977 


004702* 


104420 


000000' 


000654 


978 


004710* 


006632* 






979 










980 










981 










982 










983 


004712 s 


104420 


000000* 


000652 


984 


004720* 


006650* 






985 










986 


004722* 


104403 


003000' 


006736 


987 


004730* 








988 


004730* 


026727 


173702 


000552 


989 


004736* 


002010 






990 


004740* 


016700 


173672 




991 


004744' 


01672a 


173700 




992 


004750* 


016720 


173604 




993 


004754* 


010067 


173656 




994 


004760* 








995 


004760' 


000540 






996 


004762' 








997 


004762' 


032767 


020000 


173562 


998 


004770' 


001404 






999 


004772' 


104403 


000000* 


006700 


1000 


005000* 


000505 






1001 


005002* 








1002 


005002' 


032767 


000400 


173552 


1003 


005010* 


001404 






1004 


005012' 


104403 


000000' 


006710' 


1005 


005020' 


000475 






1006 


005022' 








1007 


005022' 


032767 


040000 


173532 


1008 


005030' 


001404 






1009 


005032' 


104403 


000000' 


006672' 


1010 


005040' 


000514 






1011 


005042* 








1012 


005042* 


032767 


040000 


173502 


1013 


005050* 


001404 






1014 


005052* 


104403 


000000* 


006672' 


1015 


005060* 


000455 






1016 


005062' 








1017 


005062* 


032767 


024000 


173474 


1018 


005070* 


001034 






1019 


005072* 


032767 


000200 


173466 


1020 


005100* 


001405 






1021 


005102' 


032767 


000400 


173456 


1022 


005110 s 


001070 






1023 


005112* 


000423 






1024 


005114* 


032767 


057057 


173444 


1025 


005122' 


001017 







MODULE CODE 



JBRB001 



JSTORE AT CYLNO 



0T0AS,BEGIN,8ADCYL,CXLN0 

| #■?»#■& #*### ft*##*###IH***#^*#*»# #»■»«■#««•«•*##«■##«■#### *####« #•»*###### 

jCONVERT BADTRK TO ASCII AND 
JSTORE AT TRKNO 
OTOAI, BEGIN, BADTRK, TRKNO 

I *#*###*&**##*#%###**#»**#&##*##**#***#*#***#*###*###**#*#*#*** 
j #•» #*#### #*#«#*######*#*»***####*#*###***#*****#*##*#* #*#«#««### 

jCONVERT BADSEC TO ASCII AND 

JSTORE AT SECNO 
OTOAI, BEGIN, BADSECSECNO 



MSGNS, BEGIN, 8ADMES 





CMP 


NXTBBK,#ENDBBK 




BGE 


13$ 




MOV 


NXTBBK,R0 




MOV 


BADCYL,(R0)+ 




MOV 


S-f6,(R0) + 




MOV 


R0,NXTBBK 


1381 








BR 


78 


9$: 








BIT 


#BITl3fS 




BEQ 


163 




MSGNI 


BEGIN, MCPERR 




BR 


68 



BIT SBITB,S+10 
BEQ 17$ 
MSGNS, BEGIN, MDPEBR 
BP 6S 

BIT #BIT14,S+10 
BEQ 18$ 
MSGNS, BEGIN, TRERR 
BR 10$ 



BIT 


#BIT14,S 


BEQ 


190 


MSGN$ 


BEGIN, TRERR 


BR 


68 


BIT 


#BIT13lBITll»S+l 


BNE 


20$ 


BIT 


#BIT7,S+14 


BEQ 


218 


BIT 


#BIT8,S+14 


BNE 


10$ 


BR 


20$ 


BIT 


#57057, S + 14 


BNE 


208 



ASCII MESSAGE CALL WITH COMMON HEADER 
END 

IF MORE SPACE IN TABLE THEN 
BEGIN 
R0 POINTS TO NEXT FREE SLOT IN TABLE 
STUFF CYLINDER NUMBER 
STUFF REST OF DISK ADDRESS 
UPDATE POINTER 
END 

NO MESSAGE "HARD ERROR" SO NO RE«TRY 
END (# BAD SPOT *) 

IF MASSBUSS CTRL PARITY ERROR THEN 
BEGIN 
ASCII MESSAGE CALL WITH COMMON HEADER 
HARD ERROR 
END 

IF MASSBUSS DATA PARITY ERROR THEN 
BEGIN 
ASCII MESSAGE CALL WITH COMMON HEADER 
HARD ERROR 
END 

IF WRITE-CHECK ERROR THEN 
BEGIN 
ASCII MESSAGE CALL WITH COMMON HEADER 
SOFT ERROR 
END 

IF ANY OTHER TRANSFER ERROR THEN 
BEGIN 
ASCII MESSAGE CALL WITH COMMON HEADER 
HARD ERROR 
END 
I IF OTHER HARD ERROR THEN 



(# SQFT»»SPECIAL CASE a) 



IDRB001 
JDRB001 
JDRB001 
|DRB001 
JDRB001 
|DRB001 
IDRB001 
>DRB001 
IDRB001 
JDRB001 
IDRB001 
|DRB001 

IDRB001 
JDRB001 
JDRB001 
IDRB001 

JDRB001 
JDRB001 
SDRB001 
JDRB001 

|DRB001 
JDRB001 
IDRB001 
JDRB001 

IDRB001 
IDRB001 
IDRB001 
FDRB001 
JDRB001 
JDRB001 
IDRB001 
JDRB001 
JDRB001 
JDRB001 
IDRB001 



RPDC DEC/X11 SYSTEM EXERCISER MODULE 
XRPDC0 8 PH 13«JUN»79 13101 



MACY11 30A(1052) 
MODULE CODE 



13-JUN-79 13105 PAGE 23 



1026 
1027 
1028 
1029 
1030 
1031 
1032 
1033 
1034 
1035 
1036 
1037 
1038 
1039 
1040 
1041 
1042 
1043 
1044 
1045 
1046 
1047 
1048 
1049 
1050 
1051 
1052 
1053 
1054 
1055 
1056 
1057 
1058 
1059 
1060 
1061 
1062 
1063 
1064 
1065 
1066 
1067 
1068 
1069 
1070 
1071 
1072 
1073 
1074 
1075 
1076 
1077 
1078 
1079 
1080 
1081 



005124' 
005130* 
005132* 
005140* 
005142* 
005150* 
005152* 
005160* 
005162* 
005162' 
005164' 
005164* 
005172* 
005174* 
005202' 
005204' 
005204* 
005206' 

005206' 
005214' 
005214* 
005220' 
005224' 
005226* 
005234* 
005242' 
005244' 
005244* 
005250* 



005767 
001014 
032767 
001010 
032767 
001405 
032777 
001401 

000414 

032767 
001004 
032767 
001401 

000432 



104403 000000* 006754* 



005256* 
005262* 
005270* 

005272* 
005272* 
005276 s 
005302* 
005304* 
005312* 
005320* 
005322* 
005322* 
005326* 



010067 
052767 
000423 



016700 
105767 
100407 
012767 
012767 
000402 



173462 

000156 
000200 
140000 

120400 

140000 



173454 
172646 
174662 

173374 
173412 



20$l 
22$ I 



2331 
24*1 



016700 
105767 
100407 
012767 
012767 
000402 

005067 



174572 
173336 



000001 
172636 



005250* 104405 000000* 



174530 

000200 



174514 
173260 



000706' 

II 



174556 
172644 

2581 

266 t 

001716* 

173400 7SI 
1081 



174500 
172566 



005067 172560 



28$| 

29$| 



005326* 104406 000000* 
005334* 005067 173330 



005340* 004767 
003344* 000361 
005346* 000205 



TST 
BNE 
BIT 
BNE 
BIT 
BEQ 
BIT 
BEQ 

BP 

BIT 

BNE 
BIT 
BEQ 



S + 40 

20$ 

#156,5+42 

208 

*»RH70,SB1 

22$ 

#140000, 0PHCS3 

22$ 

6$ 

S120400,S+14 
238 

#140000,5+42 
248 



I 
> 

\ BEGIN 

} HARD ERROR 

J END 

1 IF OTHEP SOFT ERRORS THEN 

; 
> 
; 
i 

i 



BEGIN 
BR 10$ J SOFT ERROR 

END 

?(* IF WE FALL THRU TO HERE, WE HAVE AN UNKNOWN ERROR #) 
MSGN$, BEGIN, UNKNWN jASCII MESSAGE CALL WITH COMMON HEADER 
» C* PROCESS HARD ERROR #) 



IDRB001 
>DRB001 
IDRB001 
JDRB001 
JDRB001 
IDRB001 
IDRB001 
JDRB001 
IDRB001 
JDRB001 
JDBB001 
JDRB001 
JDRB001 
JDRB001 
;DRB001 
JDRB001 
IDRB001 
JDRB001 
IDRB001 



MOV 

TSTB 

BMI 

MOV 

MOV 

BP 

CLR 



PHDB,R0 

S+10 

258 

#ZERO,RHDB 

81, ERRTYP 

26$ 

ERRTYP 



JDRB001 
JDRB001 
IDRB001 
JDRB001 



SAVE RHDB ADDRESS 
I IF OR NOT SET THEN 
j BEGIN 

» FAKE ADDRESS TO PREVENT DLT ON ACCESS JDRB001 

1 DATA PROBLEM ;DRB001 

END ;DRB001 

ELSE |DRB001 

SOME OTHER ERROR |DRB0k>l 

1 JDRB001 

I *««»*«*««*«#*«««***«*»«**««#*«*«**#*#***»«#*«*««««**««*««»»#««« 

HPDER$,BEGIN,TABLE j 

J # *tf «###«««# ««#tftttt#4# »#«•*•»** #&#####*####* *#**««»## *««««#*«*«#### 

MOV R0,RHDB j RESTORE DATA BUFFER ADDRESS JDRB001 



J EN 



t 



BIS 
BR 



#BIT7,KLAG 
27$ 



} HARD ERROR FLAG I NO RETRY 
j DO COMMON ERROR EXIT 



i (# PROCESS SOFT ERPOR #) 

MOV RHDB,R0 » SAVE RHDB ADDRESS 

TSTB S+10 J IF OR NOT SET THEN 

BMI 28$ ! BEGIN 

MOV #ZERO,RHDB j DON'T TRY TO ACCESS REGISTER 

MOV #1, ERRTYP I DATA ERROR 

BP 29$ ; END 

} ELSE 
CLP ERRTYP j OTHER ERROR TYPE 

J 

j *##*%###*&#*#%###*&%*####*»#######*#»******##*#######*####*##*#* 
SOFERS, BEGIN, TABLE j 



IDRB001 
JDRB001 
JDHB001 
>DRB001 
JDRB001 
;DRB001 
JDRB001 
|DRB0H1 
JDRB001 
;DRB001 
;DRB001 
JDRB001 
JDRB001 



} NO HARD ERPOR 



2711 


JSR 
SEC 


PC,NOTRDY 


235 


RTS 


R5 



CLEAR OUT ERRORS, 
SET ERROR RETURN 



? RETURN H0MEWARD 9 



JDRB001 
JUHB001 
MAKE SURE DRIVE'S OK;DRB001 
JDRB001 
}DRB001 
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SEU 0023 



1032 










1083 


005350* 


012767 


077777 


173334 


1084 


0OS3S6' 








1085 


005336' 


032777 


004000 


174404 


1086 


005364* 


001406 






1087 


005366' 


010046 






1088 


005370' 


012600 






1089 


003372' 


032777 


004000 


174370 


1090 


009400' 


001017 






1091 


003402' 








1092 


003402' 


104407 


000000' 




1093 


003406' 


104407 


000000' 




1094 


003412' 


104407 


000000' 




109S 


005416' 


104407 


000000* 




1096 


005422' 


005367 


173264 




1097 


003426' 


001353 






1098 


003430* 


104403 


000000' 


006762' 


1099 


005436' 


000426 






1100 


003440' 


004367 


173160 




1101 


005444' 


004367 


000074 




1103 


005450* 


000434 






1103 


003432* 


004767 


000224 




1104 


005456' 


005000 






1103 


005460* 


016701 


174304 




1106 


005464' 


012160 


000532* 




1107 


003470' 


005720 






1108 


005472* 


022700 


000046 




1109 


003476* 


001372 






1110 


005500' 


012767 


000006 


172400 


1111 










1112 


005506' 


104405 


000000* 


001716' 


1113 










1114 










1119 


003514' 


004767 


175036 




1116 


005320' 


004767 


176674 




1117 


003524* 


104403 


000000' 


007000' 


1118 


005532' 


016706 


172274 




1119 


003336' 


000167 


174446 




1120 


003542* 


000207 






U21 










1122 










1123 










1124 


005544' 


016777 


173126 


174226 


1123 


003552* 


017700 


174212 




1126 


003336* 


032700 


004000 




1127 


005562* 


001433 






1128 


003364' 


017700 


174212 




1139 


005570* 


105700 






1130 


09S372* 


100027 






1131 


005574* 


032700 


000100 




1132 


005600' 


001424 






1133 


005602* 


032700 


000400 




1134 


005606* 


001421 






113S 


005610* 


032700 


004000 




1136 


003614* 


001016 






1137 


005616* 


032700 


010000 





NOTRDYl MOV 

4§l 

BIT 
SEQ 
MOV 
MOV 
BIT 
BNE 



111 
( 



S77777,CLK 

#BITll f SBHCSl 

6$ 

R0,-CSP) 

CSP)+,R0 

#BITH,PRHCS1 

2$ 



» SET THE TIMER 



(DO 
(NO 



I HAVE THE DRIVE DVA? 



(JUST WASTE A LITTLE TIME 
(STILL GOT IT? 



.) 



BREAKS, BEGIN 

BREAKS, BEGIN 

BREAKS, BEGIN 

BREAKS, BEGIN 

DEC CLK 

BNE 4$ 

MSGNI, BEGIN, NOT (ASCII MESSAGE CALL WITH COMMON HEADER 

BR _ 

JSR 

JSR 



(TEMPORARY RETURN TO MONITOR,,,, 

(THEN CONTINUE AT NEXT INSTRUCTION, 

(TEMPORARY RETURN TO MONITOR,,,, 

(THEN CONTINUE AT NEXT INSTRUCTION, 
(COUNT • OF TRIES 
(NOT DONE YET 



71 

R5, CLEAR 

P5, READY 

1$ 

PC#ERSUB1 

R0 

RHCSlrPl 

(P1)+,S(R0) 

CR03 + 

#46, R0 

228 

#6,ERRTYP 



(COULD NOT GET DRIVE 

(SET THE CONTROLLER AND DRIVE 

I IS DRIVE READY 7 

( YES, CONTINUE 

( LOAD ERROR INFORMATION 

(MOVE DRIVE REG INTO TABLE 



JSR 
CLR 
MOV 
MOV 
TST 
CMP 
BNE 
MOV #6»ERRTYP (DRIVE NOT READY 

1 to************************************************************** 

HRDEPS, BEGIN, TABLE ( DRIVE NOT READY 

r»»»l (DRB001 

JSR PCRELESE (RELEASE THE DRIVE (DRB001 

JSR PC, DROP j NO, DROP THE DRIVE 

MSGN3, BEGIN, DRP (ASCII MESSAGE CALL WITH COMMON HEADER 
MOV SP0INT,R6 
JMP LOOP2 

RTS PC (RETURN 



M 



READY! MOV 



UNITNO,8RHCS2 I LOAD UNIT ADDRESS 



( SAVE STATUS IN R0 

( DRIVE READY ? 

( NO 

( VOLUME VALID ? 

I NO 

( DRIVE PRESENT 7 

r NO 

( WPITE LOCKED ? 



MOV 


?RHCS1#R0 


BIT 


#BIT11,P0 


BEQ 


1$ 


MOV 


9PPDS,R0 


TSTB 


R0 


BPL 


13 


BIT 


#BIT6#R0 


BEQ 


18 


BIT 


#BITB,RfeJ 


BEQ 


16 


BIT 


#BIT11,R0 


BNE 


IS 


BIT 


#BIT12,R0 



YES 

MEDIUM ON LINE ? 
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1138 
1139 
1140 
1141 
1142 
1143 
1144 
1145 
1146 
1147 
1148 
1149 
1130 
1151 
1152 
1153 
1154 
1153 
1156 
1157 
1158 
1139 
1160 
1161 
1162 
1163 
1164 
1165 
1166 
1167 
1168 
1169 
1170 
1171 
1172 
1173 
1174 
1175 
1176 
1177 
1178 
U79 
1180 
1181 
1182 
1183 
1184 
1185 
1186 
1187 
1188 
1189 
1190 
1191 
1192 
1193 



003622* 001413 
003624* 032700 
005630* 001010 
005632* 005700 
005634' 100406 
003636' 032777 
005644' 001402 

003646 s 000261 

005650' 000401 

003632' 000241 

003634' 000203 



005636' 
003662* 
003666* 
005672* 
005676' 
005700' 

003702' 
005710* 
005716' 



005720* 
005724' 
005730' 
005732' 
005736' 
003742' 
005744* 
005752* 
005760* 
005764* 
005766* 
005772* 
003776' 
006002* 
006004* 



014167 
010167 
014267 
010267 
003721 
005722 

016767 
017767 
000207 



017700 
032700 
001003 
104407 
104407 
000766 
012777 
012767 
105777 
100417 
104407 
104407 
005367 
001366 
012767 



004000 174124 



172224 
172214 
172216 
172206 



174062 172170 
174034 172164 



MAC! 
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MODULE 


CODE 










BEQ 


IS 


; NO 






BIT 


#BIT14,P0 


1 ANY ERRORS 7 






BNE 


1$ 


J YES 






TST 


R0 


J ATTENTION SET ? 






BMI 


IS 


i YES 






BIT 


#BIT11,&PHCS1 


(DVA SET? 






BEQ 


IS 


|BR IF NOT 

j**»3 






SEC 




i READY 






BR 


28 


> RETURN 


111 




CLC 




( NOT READY 


211 




RTS 


P5 


(RETURN 


( 




*"""•' 


.»«»«»««»««.».»„«»*,«, 


»m 


ERSUB2I 


MOV 


-CR1),ASB 


( LOAD THE DATA 






MOV 


PUSBADR 


J LOAD ADDRESS OF DATA WRITTEN 






MOV 


»(R2)#AWAS 


( LOAD THE DATA 






MOV 


R2,WASADR 


; LOAD ADDRESS OF DATA READ 






TST 


CR1) + 


( RESET REG, 1 






TST 


(P2) + 


; RESET REG, 2 


ERSUB1I 


MOV 


RHCS1,CSPA 


( LOAD ADR OF CURRENT CSR 






MOV 


PRHCS1#ACSR 


I LOAD CONTENTS OF CURRENT CSR 






RTS 


PC 


J RETURN 



(DRB001 
(DRB001 
(DRB001 
(DRB001 
(DRB001 



174044 



000040 174026 
077777 172732 
174004 



PEZETi 



131 



MOV 9RHCS1,P0 
BIT #BIT11,R0 
BNE 33 
BREAKS, BEGIN 
BREAKS, BEGIN 



BR 

MOV 
MOV 
TSTB 
BMI 



000003 172074 



REZET 

*BIT5,9RHCS2 

#77777, CLK 

8PHCS1 

2$ 
BREAKS, BEGIN 
BREAKS, BEGIN 
DEC CLK 
BNE IS 
MOV #3#ERRTYP 



(TEMPORARY RETURN TO MONITOR,,,, 
(THEN CONTINUE AT NEXT INSTRUCTION, 



006012' 104405 000000' 000000 



006020* 
006024' 



104410 
017746 
012677 
000207 



006036* 016700 

006043* 010037 

006046* 062700 

006052' 010067 



173736 
173732 



171744 
173722 
000002 
173714 



23! 



SETUP | 



( ISSUE AN RHU INIT 

» SET THE TIMER 

( CONTROLLER READY ? 

I YES, CONTINUE 

(TEMPORARY RETURN TO MONITOR,,,, 

(THEN CONTINUE AT NEXT INSTRUCTION, 

( WAIT SOME MORE 7 

J YES 

(CONTROLLER NOT READY 
(###«##««»#««.#«#«««##»#«»«#«*###*#«»« # «#«# # « # ««« # tf«^## # »»#««««## 
HRDER8, BEGIN, NULL , CONTROLLER NOT READY 

ENDS, BEGIN , 

MOV IRPAS#»(SP) 

MOV CSPH,®RPAS 

RTS PC | RETURN 



( GET DEVICE ADDRESS 

( GENERATE REGISTER ADDRESSES 



MOV 


ADDR,R0 


MOV 


RCrRHCSl 


ADD 


#2rR0 


MOV 


R0,RHWC 



XFPOCf) ( Pll J3*JUN«79 13101 



1194 


006056' 


062700 


000002 


1195 


006062" 


010067 


173706 


U96 


006066' 


062700 


000002 


1197 


006072* 


010067 


173700 


1198 


006076' 


062700 


00P002 


1199 


006102' 


010067 


173672 


1200 


006106* 


062700 


000002 


1201 


006111* 


010067 


173664 


1202 


006116' 


062700 


000002 


1203 


006122' 


010067 


173656 


1204 


006126* 


062700 


000002 


1205 


0P6132* 


010067 


173650 


1206 


006136* 


062700 


000002 


1207 


006142' 


010067 


173642 


1208 


006146' 


062700 


000002 


1209 


006152' 


010067 


173634 


1210 


006156' 


062700 


000002 


1211 


006162' 


010067 


173626 


1212 


006166* 


062700 


000002 


1213 


006172* 


010067 


173620 


1214 


006176' 


062700 


0P0002 


1213 


006202' 


010067 


173612 


1216 


006206' 


062700 


000002 


1217 


006212* 


010067 


173604 


1218 


006216' 


062700 


000002 


1219 


006222* 


010067 


173576 


1220 


006226* 


062700 


000002 


1221 


006232' 


010067 


173570 


1222 


006236' 


062700 


000002 


1223 


006242' 


010067 


173562 


1224 


006246' 


062700 


000002 


122S 


006252' 


010067 


173554 


1226 


006256* 


062700 


000002 


1227 


006262' 


010067 


173546 


1228 


006266* 


062700 


000002 


1229 


006272' 


010067 


173540 


1230 








1231 


006276* 


032767 


001000 


1232 


006304' 


001415 




1233 


006306' 


032767 


000200 


1234 


006314* 


001411 




123S 


006316' 


062700 


000002 


1236 


006322* 


010067 


173512 


J237 


006326* 


062700 


000002 


1238 


006332* 


010067 


173504 


1239 


006336* 


000403 




1240 


006340' 


042767 


001000 


1241 


006346* 


016700 


171436 


1242 


006352' 


012720 


003036' 


1243 


006356* 


116710 


171430 


1244 


006362* 


000207 




1245 









171552 



*Acm 


J6?A(i0S2) U»JUN*7§ 


13103 PAGE 26 


MODULE 


CODE 








ADD 


#2,P0 






MOV 


R0,RHBA 






ADD 


82, P0 






MOV 


P",PPDA 






ADD 


»2,R0 






MOV 


R0,RHCS2 






ADD 


#2,R0 






MOV 


R0,RPDS 






ADD 


»2,P0 






MOV 


R0,PPERl 






ADD 


#2,R0 






MOV 


R0,RPAS 






ADD 


#2,R0 






MOV 


P0,PPLA 






ADD 


#2,P0 






MOV 


ROiRHDB 






ADD 


#2,P0 






MOV 


R0,RPMR 






ADD 


*2,P0 






MOV 


Rfl,RPDT 






ADD 


#2,P0 






MOV 


R0,RPSN 






ADD 


*2,R0 






MOV 


R0,RPOF 






ADD 


#2,R0 






MOV 


R0.RPDC 






ADD 


#2,P0 






MOV 


R0,RPCC 






ADD 


»2,R0 






MOV 


R0,RPEP2 






ADD 


#2,R0 






MOV 


F0,RPER3 






ADD 


#2,P0 






MOV 


FGiPPECl 






ADD 


82, R0 






MOV 


R0,PPEC2 


|**»7 




BIT 


#ADDR22#RESl 


;D0 WE HAVE 22-BIT ADDR SUPPORT? 




BEG 


IS 


;no 




BIT 


&RH70,SR1 


;IS THIS AN RH70 




BEO 


13 


|N0 




ADD 


»2,R0 






MOV 


RP,RHBAE 






ADD 


#2,R0 






MOV 


R0,RHCS3 






BR 


28 




l$f 


BIC 


»ADDR22,RES1 


; CAN'T USE 22 BIT ADDRESSING 


2*1 


MOV 


VECTOR, R0 


J GET VECTOR ADDRESS 




MOV 


»NTPUPT,CR0)+ 


? SET POINTER JUST IN CASE 




MOVB 


BR1,(R03 


> SET PRIORITY 




PTS 


PC 


1 RETURN 



01 

JDRB001 
IDRB001 
JDRB001 
IDRB001 



IDRB001 
IDRB001 



042440 
000045 
050040 
000131 
042040 
000040 
046440 
051525 
040 



020131 
042105 
046040 
047516 
042101 

040 
020104 
042507 
042040 
042105 

072 
031040 
027465 

040 
043123 

045 

072 
050123 
020124 
046101 
035114 



051101 
044522 

051501 

000 
040504 

042522 
054105 
042105 
052101 
020124 
022531 
0475O3 
047516 
000124 
047522 

000 
047C40 
030120 
022466 
051124 
051105 

000 
041040 
052117 
047450 
020051 



020040 
051124 
000004 
020040 
035103 



020040 
052440 
047127 
006672* 



006672* 006545* 
006674* 006364* 
006676* 177777 

006700* 006414' 
006702* 006374 s 
006704* 006364* 
006706' 177777 

006710* 006414* 



020040 
035113 



020054 
000040 



000045 
045516 



051117 
052111 
042526 
041123 
040524 

051124 

042503 
000045 
000105 
042522 

000 

046125 
020124 
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1246 

1247 

1248 

1249 

1250 

1251 

1252 

1253 

1254 

1255 

1256 

1257 

1258 

1259 

1260 

1261 

1262 

1263 

1264 

1265 

1266 

1267 

1268 

1269 

1270 

1271 

1272 

1273 

1274 

1275 

1276 

1277 

1278 

1279 

1280 

1291 

1282 

1283 

1284 

1285 

1286 

1287 

1288 

1289 

1290 

1291 

1292 

1293 

1294 

1295 

1296 

1297 

1298 

1299 

1300 

1301 
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006364' 
006372' 
006374* 
006402* 
006404* 
006412' 
006414* 
006422* 
006425* 
006432* 
006433* 
006440* 
006446' 
006454* 
006462' 
006470* 
006475" 
006502' 
006510* 
006514' 
006522* 
006525* 
006532' 
006540* 
006545* 
006552' 
006557' 
006561' 
006566* 
006574* 
006602* 
006610' 
006614' 
006616* 
0P6624' 
006632' 
006636" 
006644' 
006650* 
006654* 
006660* 
006666* 



.SBTTL MODULE MESSAGES 

MESH .ASCIZ * EPROR%* 

MES2I .ASCIZ • PARITY' 

MES3I .ASCIZ ' DRIVE ' 

MES4I .ASCIZ * MASSBUS' 

MESS! .ASCIZ ' DATA* 

MES61 .ASCIZ » RETRY EXCEEDED%» 



MES7I 
MESSl 



.ASCIZ 
.ASCIZ 



MES9I .ASCIZ 



' LATE* 
'NOT READY%* 



COULD NOT GET' 



050120 MES10I .ASCIZ ' DROPPED' 

052117 MESHJ .ASCIZ ': NOT PP04/5/6%' 
027464 
000 
047101 MES12I .ASCIZ » TRANSFER* 



042101 
040440 
052103 
054503 



020054 
000040 

042523 
047516 



MES13I .ASCIZ '%' 

MES15I .ASCIZ *l BADSPOT AT (OCTAL) CYLl 



CYLNOi 
MES16I 

TRKNOi 
MES17I 

SECNO| 
MES18I 
MES19I 

.EVEN 



.BLKB 
.ASCIZ 

.BLKB 
.ASCIZ 

.BLKB 

.ASCIZ 

.ASCIZ 



, TRKI 
SEC J * 



TRERRi ME512 
MES1 
177777 

MCPERPl MES4 
MES2 
MES1 
177777 

MDPERRl MES4 



JDRB001 
/DRB001 
IDPB001 

JDPB001 

JDRB001 

JDRB001 

JDRB04U 

JDRB001 

>DRBfe)01 
IDRB001 

|DRB001 

IDRB001 
JDRB001 

JDRB04J1 

JDRB001 
JDRB001 



fDRB001 
JDRB001 

»DRB001 
IDRB001 

JDRB001 
JDRB001 
JDRB001 



JDRB001 
JDRB001 
IDRB001 
JDRB001 
>DRB001 
IDRB001 
JDRB001 
IDRB001 
?DRB001 
IDRB001 
JDRB001 
1DRB001 
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1302 


006712' 


006425* 


1303 


306714' 


006374' 


1304 


006716' 


006364* 


1303 


006720* 


177777 


1306 






1307 


006722' 


006433' 


1308 


006724' 


177777 


1309 






1310 


006726* 


006425' 


1311 


006730' 


006434' 


1312 


006732' 


006364' 


1313 


006734* 


177777 


1314 






1313 


006736' 


006404* 


1316 


006740' 


007031* 


1317 


006742* 


006361' 


1318 


006744* 


006616* 


1319 


006746* 


006636* 


1320 


006730' 


006654' 


1321 


006752' 


177777 


1322 






1323 


006754* 


006660* 


1324 


A06756* 


006364' 


1329 


006760' 


177777 


1326 






1327 


006762' 


006404* 


1328 


006764* 


006462* 


1329 


006766' 


177777 


1330 






1331 


006770' 


006475* 


1332 


006772* 


006404* 


1333 


006774* 


006537* 


1334 


006776* 


177777 


1333 






1336 


007000* 


006404* 


1337 


007P02* 


007031* 


1338 


007004' 


006514* 


1339 


007006* 


006557* 


1340 


007010* 


177777 


1341 






1342 


007012' 


006404* 


1343 


007014* 


007031* 


1344 


007016* 


006514* 


134S 


007020* 


006525* 


1346 


007022* 


177777 


1347 






1348 


007024* 


000005 


1349 


007031* 


040 


1330 




007034* 


1351 






1332 






1353 






1354 




000001 



MACY11 


30AU052) 13-JUN-79 1 


MODULE 


MESSAGES 




MF55 




MES2 




MES1 




177777 


EXCEDI 


MES6 




177777 


DLTEPRI 


MESS 




ME87 




MES1 




177777 


BADMESJ 


MES3 




NUMB 




MES15 




MES16 




MES17 




MES18 




177777 


UNKNWNI 


MES19 




MES1 




177777 


NOTI 


MES3 




MES8 




177777 


TOUT! 


MES9 




MES3 




MES13 




177777 


DRPi 


MES3 




NUMB 




MES10 




ME513 




177777 


BADTYPl 


MES3 




NUMB 




MES10 




MES11 




177777 


ADRH 


,BLKB 5 


NUMBI 


.ASCIZ / / 




.EVEN 



13103 PAGE 26 



JDRB001 



SEQ 0027 



,END 



URB001 
DRB001 
ORB001 
DRB001 
DRB001 
DRB001 
DRB001 
DRB001 
DRB001 
DRB001 
DRBB01 
DRB001 
DRB001 
DRB001 
ORB001 
DRB001 
ORB001 
ORB001 
DRB001 
DRB001 
DRB001 
ORB001 
URB001 
ORB001 
DRB001 
ORB001 
DRB001 
DRB001 
DRB001 
DRB001 
ORB001 
ORB001 
DRB001 
DRB001 
DRB001 
DRB001 
DRB001 
DRB001 
DRB001 
URB001 
DRB001 
DRB001 
DRB001 
DRB001 
ORB001 
DRB001 
DRB001 
DRB001 
DRB001 
URB001 
ORB001 
ORB001 
DRB001 



) 
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ACSR 


000102R 


231* 


1161* 






















ADDR 


000006R 


197# 


1190 






















ADDR22s 


001000 


260# 


588 


1231 


1240 


















ADR1 


007024R 


911 


965 


1348ft 




















ASB 


000106R 


233ft 


1153* 






















ASTAT 


000104R 


233# 
























AWAS 


000110R 


236# 


1155* 






















BADCYL 


000650R 


393ft 


961* 


971 


991 


















BADMES 


006736R 


986 


13159 






















BADSEC 


000652R 


394* 


959* 


983 




















BAOSPT 


0002S2R 


2611 


384 


756 




















BADTRK 


000654R 


395ft 


960* 


977 




















BADTYP 


007012R 


875 


1342ft 






















BDSPT a 


000100 


366# 


956 






















BEGIN 


000000R 


194# 


490 


493 


503 


507 


517 


568 


569 


595 


603 612 


627 


679 






875 


911 


939 


963 


971 


977 


983 


986 


999 


1004 1009 


1014 


1045 






1057 


1074 


1092 


1093 


1094 


1095 


1098 


1112 


1117 


1168 1169 


1175 


1176 






1181 


1183 






















BITTAB 


003242R 


606 


645 


657ft 




















BIT0 a 


000001 


260» 


733 


841 


851 


858 


868 














BIT1 a 


000002 


2609 
























BIT10 a 


002000 


2601 
























BITll » 


004000 


260# 


1017 


1085 


1089 


1126 


1135 


1143 


1166 










BIT12 a 


010000 


260« 


584 


1137 




















BIT13 ■ 


020000 


260ft 


997 


1017 




















BIT14 s 


040000 


260ft 


583 


1007 


1012 


1139 
















BIT15 a 


100000 


260ft 


949 






















BIT2 » 


000004 


' 260ft 


363 






















BITS 8 


000010 


260ft 
























BIT4 s 


000020 


260ft 


364 


947 




















BITS s 


000040 


260ft 


365 


1171 




















BIT6 s 


000100 


260ft 


366 


945 


1131 


















BIT7 a 


000200 


260« 


367 


1019 


1060 


















BITS s 


000400 


260ft 


952 


1002 


1021 


1133 
















BIT9 » 


001000 


260» 
























BPORT » 


000020 


364ft 


731 






















BREAKgs 


104407 


260ft 


568 


569 


1092 


1093 


1094 


1095 


1168 


1169 


1175 1176 






BR1 


000012R 


199ft 


1243 






















BR2 


000013R 


200ft 
























BTODg 8 


104421 


260ft 
























CDATAga 


104412 


260ft 


517 






















CDERCT 


000144R 


250ft 
























CDWDCT 


000146R 


251« 
























CLEAR 


002624R 


573ft 


1100 






















CLK 


000712R 


413ft 


1083* 


1096* 


1172* 


1177* 
















CLRCOM 


004410R 


896ft 


898 






















CLRRB 


004400R 


894ft 
























CONriG 


0000S6R 


219ft 
























CSRA 


000100R 


229ft 


1160* 






















CYCLE 


002254R 


500 


311ft 






















CYL 


000644R 


388ft 


483# 


682* 


709* 


715 


719* 


724 


727* 


730 


742* 






CYLLIM 


000640R 


386# 


713 


725 


735 


842* 


852* 


859* 


869* 










CYLMDR 


000642R 


387# 


543 


553 


363 


730* 


735* 


737 


739* 


760 


776 






CYLHO 


006614R 


971 


12801 






















0A?CKf» 


104411 


260# 
























OATSRI® 


104404 


260# 
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TABLE — 


USER SYMBOLS 




DL&TE ■ 000004 


363# 


937 












DLTCNT 000700R 


4088 


936* 












DLTERP 006726P 


939 


13108 












DPIVE 000674P 


405# 














DROP 004420P 


4P0 


874 


901| 


1116 








DRP 007000R 


1117 


13368 












DSKADR 000646R 


389* 


484* 


542 


552 


562 


720* 743* 




DVICE 000672P 


4048 


467* 


477 


503 


645 


907* 




DVIDi 000014R 


2018 


467 












EA22 000634P 


3828 


597 


598* 


599* 


600 






ENOBBK 0005S2R 


3618 


988 












ENDITSa 104413 


260# 


507 












END! a 104410 


2608 


505 


1183 










ERROPS 004456R 


61S 


9178 












ERPTYP 000106P 


2348 


1051* 


1034* 


1068* 


1071* 


1110* 1179* 




ERSUB1 005702R 


933 


1103 


11608 










ERSUB2 005656P 


11938 














EXCEO 006722P 


627 


13078 












EXIT! a 104400 


2608 


603 












FERADR 000710R 


4128 


537* 


547* 


557* 


625 






FLAG 000670R 


4038 


620 


626* 


733 


841* 


851* 858* 868* 


1060* 


FREE 000150P 


2328 














FUNC 000702R 


4099 


536* 


546* 


556* 


601* 


602 




GETDVT 004136R 


653 


8338 












GETPASa 104415 


2608 


490 












GO 002710R 


545 


535 


565 


5878 








GWBUF|s 104414 


260# 


493 












HRDCNT 000044R 


214# 














HRDERfa 104405 


2608 


1057 


1112 


1181 








HRDPAS 000050R 


216* 














ICONT 000036R 


21 1 # 














ICOUNT 000040R 


2128 














XDNUM 000122R 


2418 














IMODX*s 000000 


2538 


494 












INIT 000030R 


2088 














INTR 000120R 


2408 


466* 












LASCYL 000656P 


3978 


737 


739 


828* 


843* 


853* 860* 870* 




LASSEC 000662R 


3998 


748 


750 


831* 








LASTRK 000660P 


3988 


745 


747 


830* 








LOOP1 002176R 


4928 


509 












LOOP2 002210R 


4958 


501 


631 


1119 








MAP22I8 104416 


2608 


595 












MCPERR 006700R 


999 


12968 












MDPERR 006710R 


1004 


13018 












HESl 006364R 


1248$ 


1293 


1298 


1304 


1312 


1324 




MES10 006514R 


12678 


1338 


1344 










MESH 00632SR 


12698 


1345 












MES12 006545R 


1272* 


1292 












ME813 006S57R 


12748 


1333 


1339 










MES1S 006S61R 


1275# 


1317 












MES16 006616R 


12818 


1318 












MES17 006636R 


12848 


1319 












MES18 0066S4P 


12878 


1320 












MES19 006660R 


12888 


1323 












MES2 006374R 


12508 


1297 


1303 










MESS 006404R 


12528 


1315 


1327 


1332 


1336 


1342 
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MES4 


006414R 


MESS 


006425R 


MES6 


006433R 


MES7 


006454R 


MES8 


006462R 


MES9 


006475R 


MODLUS 


004366R 


MODNAM 


000000R 


MODSP 


000252R 


MSGN§ s 


104403 


MSGS$ a 


104402 


MSG$ m 


104401 


NORANDs 


000040 


NOT 


006762R 


NOTRDY 


005350R 


NTRUPT 


003036R 


NULL ■ 


000000 


NUMB 


007031R 


NXTBBK 


000636R 


OPEN a 


000000 


OTQAI b 


104420 


PASCNT 


000034R 


PA18 


000626R 


PA22 


000632R 


PICKBK 


003252R 


PICKDR 


003160R 


PIRQS a 


000004 


POPSP a 


003726 


POPSP2S 


022626 


PRTY a 


000000 


PRTY0 ■ 


000000 


PRTY1 s 


000040 


PRTK2 a 


000100 


PRTY3 a 


000140 


PRTY4 s 


000200 


PRTY5 s 


000240 


PRTY6 m 


000300 


PRTY7 a 


000340 


PS s 


177776 


PSW a 


177776 


PUSH a 


005746 


PUSH2 a 


024646 


RANDg s 


104417 


RANNUM 


000054R 


RBUF 


000716R 


RBUFEA 


000130R 


RBUFPA 


000126R 


RBUFSZ 


000132R 


RBUFVA 


000124R 


READ 


002302R 


READY 


005S44R 


RELESE 


00257SP 


RESTRT 


002170R 


RESi 


000056R 



12548 
12568 
12388 
12618 
12628 
12648 
703 
1958 
209 
2608 
2608 
2608 
3658 
t098 
652 
6048 
2608 
1316 
3848 
196 
231 
251 
2608 
2108 
3798 
3818 
513 
496 
2608 
2608 
2608 
2608 
200 
2608 
2608 
2608 
2608 
199 
2608 
2608 
2608 
260« 
2608 
2608 
2608 
2188 
242 
2448 
2438 
2458 
2428 
516 
650 
519 
237 
220# 



1296 
1302 
1307 
1311 
1328 
1331 
712 

2588 
627 



672 

13278 

1078 

1242 

1181 

1337 

757 

202 

233 

252 

911 

590* 

596 

629 

6388 

612 



2608 



679 
680 
415 
565 
517 
538 
490 
536 
1101 
566 
488 
588 
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1301 
1310 



726 
875 

717 

10838 



1343 
988 
203 
235 
2608 
965 

595 



8838 

939 

740 



1349# 
990 
204 
236 

971 



1004 



1117 



993* 

205 222 

238 239 

977 983 



223 

240 



224 
243 



225 

244 



226 
246 



227 
247 



228 
249 



229 
250 



683 
894 

561 
895 

557 
11248 
1115 

1231 
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RES2 


000060P 


2218 


























RESET 


00S720R 


487 


11638 


1170 






















RHBA 


001774R 


4421 


541* 


551* 


561* 


590 


596* 


1195* 














PHBAE 


002040R 


4608 


597* 


1236* 






















RHCS1 


001770R 


4401 
1143 


567* 
1160 


574* 
1161 


377* 
1165 


378 
1173 


583* 
1191* 


602* 


918 


926 


1085 


1089 


1105 


1123 


RHCS2 


002000R 


4440 


566* 


573* 


587* 


838* 


1124* 


1171* 


1199* 












RHCS3 


002042R 


4618 


1032 


1238* 






















RHDB 


002012P 


4498 


1047 


1050* 


1039* 


1064 


1067* 


1209* 














RHWC 


001772R 


4418 


540* 


550* 


560* 


1193* 


















RH70 g 


i 000200 


3678 


1030 


1233 






















RPAS 


002006R 


447# 


381 


382* 


607 


609* 


1184 


1185* 


1205* 












RPCC 


002026R 


4SS8 


1221* 
























RPDA 


001776P 


443# 


542* 


552* 


562* 


1197* 


















RPDC 


002024R 


4548 


543* 


553* 


563* 


1219* 


















RPDS 


002002R 


4458 


1128 


1201* 






















RPDT 


002016R 


431* 


839 


846 


848 


856 


863 


865 


1213* 












RPEC1 


002034R 


4583 


1227* 
























RPEC2 


002036R 


4593 


1229* 
























RPER1 


002004R 


4468 


1203* 
























RPER2 


002030R 


456# 


1223* 
























RPER3 


002032R 


457# 


1225* 
























RPLA 


002010R 


448# 


1207* 
























RPMR 


002014R 


450« 


1211* 
























RPOF 


002022R 


433# 


384* 


1217* 






















RPSN 


002020R 


4528 


1213* 
























RSTRT 


000112R 


2378 


























S 


000SS2R 


3691 


418 


419 


420 


421 


422 


423 


424 


425 


426 


427 


428 


429 






430 


431 


432 


433 


434 


435 


436 


437 


929* 


934 


945 


947 


949 






952 


959 


960 


961 


992 


997 


1002 


1007 


1012 


1017 


1019 


1021 


1024 






1026 


1028 


1037 


1039 


1048 


1065 


1106* 














SBADR 


000102R 


230# 


1154* 
























SECNO 


0066S0R 


983 


12868 
























SECTOR 


000646R 


3908 


674* 


686« 


698 


701 


704* 


748 


750* 


758 


784 








SETUP 


006036R 


486 


11901 
























SZZSEC 


000666R 


402# 


762 


813* 






















SX2TRK 


000664R 


4018 


768 


809* 


812* 


824 


















SOFCNT 


000042R 


213# 


























SOFER$s 


104406 


260ft 


1074 
























SOFPAS 


000046R 


21S# 


























SPOINT 


000032R 


209# 


1118 
























SPSIZ a 


000040 


1* 


233 
























SRI 


000016R 


2028 


672 


717 


731 


740 


937 


956 


1030 


1233 










SR2 


000020R 


203# 


























SR3 


000022R 


204* 


























SR4 


000024R 


2059 


























START 


002044R 


208 


464# 
























STAT 


000026R 


2078 


























SVR0 


000062R 


222* 


























SVR1 


000064R 


223* 


























SVR2 


000066R 


224$ 


























SVR3 


000070R 


225$ 


























SVR4 


000072R 


2268 


























SVR5 


000074R 


227* 


























SVR6 


000076R 


2288 


























SY8CNT 


0000S2R 


217# 
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TABLE 


001716R 


4178 


1057 


1074 


1112 










TIMER 


000704R 


410* 
















TOUT 


006770R 


13318 
















TRACK 


000647R 


3918 


696* 


700* 


707 


710 


713* 


745 


747* 


TRERR 


006672R 


1009 


1014 


12928 












TRKNO 


006632R 


977 


12838 














TRPDFDs 


000022 


2608 
















TRY 


000714R 


414# 


499* 


622* 


623 










UNITNO 


000676R 


406* 
911 


479* 
965 


492* 
1124 


566 


573 


587 


605 


630* 


UNKNWN 


006754R 


1045 


13238 














VECTOR 


000010R 


1988 


1241 














WASADR 


000104R 


2328 


1156* 














WBUFEA 


000136R 


247* 


545 


555 












WBUFPA 


000134R 


246* 


541 


551 












WBUFRQ 


000140R 


2488 
















WBUFSZ 


000142R 


2498 


538 


548 


806 










WDFR 


000U6R 


2398 


465* 














WDTO 


000114R 


2388 


464* 














WRITCK 


002406R 


315 


5468 


547 












WRITE 


002312R 


514 


3368 


537 












WRTLIM 


004016R 


498 


7968 














XFLAG 


000005R 


1968 
















XMEM 


000634R 


3808 


545* 


555* 


565* 


591* 


592* 


593* 


594* 


ZERO 


000706R 


4118 


1050 


1067 












9 S 


007034R 


4158 


518 


12808 


12838 


12868 


12908 


13488 


13508 


i ABS, 


000000 000 
007034 001 

















902 
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